home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpfun.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  68.0 KB  |  2,990 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpfun.h"
  4. init_cmpfun(){do_init(VV);}
  5. /*    local entry for function C1PRINC    */
  6.  
  7. static object LI1(V2)
  8.  
  9. register object V2;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     {register object V3;
  13.     register object V4;
  14.     V3= Cnil;
  15.     V4= (VFUN_NARGS=0,(*(LnkLI212))());
  16.     if(!(endp((V2)))){
  17.     goto T3;}
  18.     (void)((*(LnkLI213))(VV[0],small_fixnum(1),small_fixnum(0)));
  19. T3:;
  20.     if(endp(cdr((V2)))){
  21.     goto T6;}
  22.     if(endp(cddr((V2)))){
  23.     goto T6;}
  24.     V5 = make_fixnum(length((V2)));
  25.     (void)((*(LnkLI214))(VV[0],small_fixnum(2),V5));
  26. T6:;
  27.     if(!(endp(cdr((V2))))){
  28.     goto T14;}
  29.     V3= (*(LnkLI215))();
  30.     goto T12;
  31. T14:;
  32.     V3= (*(LnkLI216))(cadr((V2)),(V4));
  33. T12:;
  34.     if(!(type_of(car((V2)))==t_string)){
  35.     goto T19;}
  36.     V6 = make_fixnum(length(car((V2))));
  37.     if(number_compare(V6,symbol_value(VV[1]))<=0){
  38.     goto T18;}
  39. T19:;
  40.     if(!(type_of(car((V2)))==t_character)){
  41.     goto T17;}
  42. T18:;
  43.     if(endp(cdr((V2)))){
  44.     goto T16;}
  45.     if(!((car((V3)))==(VV[2]))){
  46.     goto T17;}
  47.     V8= structure_ref(caaddr((V3)),VV[2],1);
  48.     {register object x= /* INLINE-ARGS */V8,V7= VV[3];
  49.     while(!endp(V7))
  50.     if(eql(x,V7->c.c_car)){
  51.     goto T28;
  52.     }else V7=V7->c.c_cdr;
  53.     goto T17;}
  54. T28:;
  55. T16:;
  56.     V9= car((V2));
  57.     if(!(endp(cdr((V2))))){
  58.     goto T31;}
  59.     V10= Cnil;
  60.     goto T29;
  61. T31:;
  62.     V10= structure_ref(caaddr((V3)),VV[2],4);
  63. T29:;
  64.     {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));
  65.     VMR1(V11)}
  66. T17:;
  67.     V12= (*(LnkLI216))(car((V2)),(V4));
  68.     {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));
  69.     VMR1(V13)}}
  70. }
  71. /*    local entry for function C2PRINC    */
  72.  
  73. static object LI2(V17,V18,V19)
  74.  
  75. register object V17;register object V18;object V19;
  76. {     VMB2 VMS2 VMV2
  77. TTL:;
  78.     if(!((symbol_value(VV[5]))==(VV[6]))){
  79.     goto T34;}
  80.     if(!(type_of((V17))==t_character)){
  81.     goto T38;}
  82.     princ_str("\n    princ_char(",VV[7]);
  83.     base[0]= (V17);
  84.     vs_top=(vs_base=base+0)+1;
  85.     Lchar_code();
  86.     vs_top=sup;
  87.     V20= vs_base[0];
  88.     (void)((*(LnkLI217))(V20));
  89.     if(((V18))!=Cnil){
  90.     goto T47;}
  91.     princ_str(",Cnil",VV[7]);
  92.     goto T45;
  93. T47:;
  94.     princ_str(",VV[",VV[7]);
  95.     (void)((*(LnkLI217))((V18)));
  96.     princ_char(93,VV[7]);
  97. T45:;
  98.     princ_str(");",VV[7]);
  99.     goto T36;
  100. T38:;
  101.     if(!((length((V17)))==(1))){
  102.     goto T55;}
  103.     princ_str("\n    princ_char(",VV[7]);
  104.     base[0]= aref1((V17),0);
  105.     vs_top=(vs_base=base+0)+1;
  106.     Lchar_code();
  107.     vs_top=sup;
  108.     V21= vs_base[0];
  109.     (void)((*(LnkLI217))(V21));
  110.     if(((V18))!=Cnil){
  111.     goto T64;}
  112.     princ_str(",Cnil",VV[7]);
  113.     goto T62;
  114. T64:;
  115.     princ_str(",VV[",VV[7]);
  116.     (void)((*(LnkLI217))((V18)));
  117.     princ_char(93,VV[7]);
  118. T62:;
  119.     princ_str(");",VV[7]);
  120.     goto T36;
  121. T55:;
  122.     princ_str("\n    princ_str(\"",VV[7]);
  123.     {register int V22;
  124.     register int V23;
  125.     V22= length((V17));
  126.     V23= 0;
  127. T77:;
  128.     if(!((V23)>=(V22))){
  129.     goto T78;}
  130.     goto T73;
  131. T78:;
  132.     {register object V24;
  133.     V24= elt((V17),V23);
  134.     base[0]= (V24);
  135.     base[1]= VV[8];
  136.     vs_top=(vs_base=base+0)+2;
  137.     Lchar_eq();
  138.     vs_top=sup;
  139.     if((vs_base[0])==Cnil){
  140.     goto T85;}
  141.     princ_str("\\\\",VV[7]);
  142.     goto T82;
  143. T85:;
  144.     base[0]= (V24);
  145.     base[1]= VV[9];
  146.     vs_top=(vs_base=base+0)+2;
  147.     Lchar_eq();
  148.     vs_top=sup;
  149.     if((vs_base[0])==Cnil){
  150.     goto T91;}
  151.     princ_str("\\\"",VV[7]);
  152.     goto T82;
  153. T91:;
  154.     base[0]= (V24);
  155.     base[1]= VV[10];
  156.     vs_top=(vs_base=base+0)+2;
  157.     Lchar_eq();
  158.     vs_top=sup;
  159.     if((vs_base[0])==Cnil){
  160.     goto T97;}
  161.     princ_str("\\n",VV[7]);
  162.     goto T82;
  163. T97:;
  164.     (void)((*(LnkLI217))((V24)));}
  165. T82:;
  166.     V23= (V23)+1;
  167.     goto T77;}
  168. T73:;
  169.     princ_str("\",",VV[7]);
  170.     if(((V18))!=Cnil){
  171.     goto T110;}
  172.     princ_str("Cnil",VV[7]);
  173.     goto T108;
  174. T110:;
  175.     princ_str("VV[",VV[7]);
  176.     (void)((*(LnkLI217))((V18)));
  177.     princ_char(93,VV[7]);
  178. T108:;
  179.     princ_str(");",VV[7]);
  180. T36:;
  181.     {object V25 = (VFUN_NARGS=1,(*(LnkLI218))(Cnil));
  182.     VMR2(V25)}
  183. T34:;
  184.     if(!(eql((V17),VV[10]))){
  185.     goto T118;}
  186.     V26= make_cons((V19),Cnil);
  187.     {object V27 = (*(LnkLI219))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);
  188.     VMR2(V27)}
  189. T118:;
  190.     if(!(type_of((V17))==t_character)){
  191.     goto T122;}
  192.     V28= VV[14];
  193.     goto T120;
  194. T122:;
  195.     V28= VV[15];
  196. T120:;
  197.     V29= (VFUN_NARGS=2,(*(LnkLI212))(VV[13],V28));
  198.     V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI220))((V17)))),(V19));
  199.     {object V31 = (*(LnkLI219))(VV[0],/* INLINE-ARGS */V30,Cnil,Ct);
  200.     VMR2(V31)}
  201. }
  202. /*    local entry for function C1TERPRI    */
  203.  
  204. static object LI3(V33)
  205.  
  206. register object V33;
  207. {     VMB3 VMS3 VMV3
  208. TTL:;
  209.     {register object V34;
  210.     object V35;
  211.     V34= Cnil;
  212.     V35= (VFUN_NARGS=0,(*(LnkLI212))());
  213.     if(endp((V33))){
  214.     goto T126;}
  215.     if(endp(cdr((V33)))){
  216.     goto T126;}
  217.     V36 = make_fixnum(length((V33)));
  218.     (void)((*(LnkLI214))(VV[11],small_fixnum(1),V36));
  219. T126:;
  220.     if(!(endp((V33)))){
  221.     goto T134;}
  222.     V34= (*(LnkLI215))();
  223.     goto T132;
  224. T134:;
  225.     V34= (*(LnkLI216))(car((V33)),(V35));
  226. T132:;
  227.     if(endp((V33))){
  228.     goto T136;}
  229.     if(!((car((V34)))==(VV[2]))){
  230.     goto T137;}
  231.     V38= structure_ref(caaddr((V34)),VV[2],1);
  232.     {register object x= /* INLINE-ARGS */V38,V37= VV[17];
  233.     while(!endp(V37))
  234.     if(eql(x,V37->c.c_car)){
  235.     goto T142;
  236.     }else V37=V37->c.c_cdr;
  237.     goto T137;}
  238. T142:;
  239. T136:;
  240.     if(!(endp((V33)))){
  241.     goto T145;}
  242.     V39= Cnil;
  243.     goto T143;
  244. T145:;
  245.     V39= structure_ref(caaddr((V34)),VV[2],4);
  246. T143:;
  247.     {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));
  248.     VMR3(V40)}
  249. T137:;
  250.     {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));
  251.     VMR3(V41)}}
  252. }
  253. /*    local entry for function C1APPLY    */
  254.  
  255. static object LI4(V43)
  256.  
  257. register object V43;
  258. {     VMB4 VMS4 VMV4
  259. TTL:;
  260.     {register object V44;
  261.     V44= Cnil;
  262.     if(endp((V43))){
  263.     goto T149;}
  264.     if(!(endp(cdr((V43))))){
  265.     goto T148;}
  266. T149:;
  267.     V45 = make_fixnum(length((V43)));
  268.     (void)((*(LnkLI213))(VV[18],small_fixnum(2),V45));
  269. T148:;
  270.     {register object V46;
  271.     V46= (*(LnkLI221))(car((V43)));
  272.     base[0]= cadr((V46));
  273.     vs_top=(vs_base=base+0)+1;
  274.     (void) (*Lnk222)();
  275.     vs_top=sup;
  276.     V44= vs_base[0];
  277.     V43= (*(LnkLI223))(cdr((V43)),(V44));
  278.     if(!((car((V46)))==(VV[19]))){
  279.     goto T160;}
  280.     {object V47;
  281.     register object V48;
  282.     V47= caddr((V46));
  283.     V48= caddr((V47));
  284.     if((cadr((V48)))!=Cnil){
  285.     goto T165;}
  286.     if((cadddr((V48)))!=Cnil){
  287.     goto T165;}
  288.     {object V49 = (*(LnkLI224))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));
  289.     VMR4(V49)}
  290. T165:;
  291.     {object V50 = list(4,VV[18],(V44),(V46),(V43));
  292.     VMR4(V50)}}
  293. T160:;
  294.     {object V51 = list(4,VV[18],(V44),(V46),(V43));
  295.     VMR4(V51)}}}
  296. }
  297. /*    local entry for function C2APPLY    */
  298.  
  299. static object LI5(V54,V55)
  300.  
  301. object V54;object V55;
  302. {     VMB5 VMS5 VMV5
  303.     bds_check;
  304. TTL:;
  305.     {object V56;
  306.     bds_bind(VV[20],symbol_value(VV[20]));
  307.     V56= Cnil;
  308.     V56= (*(LnkLI225))((V54));
  309.     {object V57;
  310.     register object V58;
  311.     base[1]= (VV[20]->s.s_dbind);
  312.     V57= (VV[20]->s.s_dbind);
  313.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  314.     V58= list(2,VV[21],symbol_value(VV[22]));
  315.     bds_bind(VV[20],base[1]);
  316.     {register object V59;
  317.     V59= (V55);
  318. T179:;
  319.     if(!(endp(cdr((V59))))){
  320.     goto T180;}
  321.     princ_str("\n    {object ",VV[7]);
  322.     (void)((*(LnkLI217))((V58)));
  323.     princ_char(59,VV[7]);
  324.     bds_bind(VV[5],(V58));
  325.     V60= (*(LnkLI226))(car((V59)));
  326.     bds_unwind1;
  327.     goto T177;
  328. T180:;
  329.     base[2]= list(2,VV[23],(*(LnkLI227))());
  330.     bds_bind(VV[5],base[2]);
  331.     V61= (*(LnkLI226))(car((V59)));
  332.     bds_unwind1;
  333.     V59= cdr((V59));
  334.     goto T179;}
  335. T177:;
  336.     princ_str("\n     vs_top=base+",VV[7]);
  337.     (void)((*(LnkLI217))((VV[20]->s.s_dbind)));
  338.     princ_char(59,VV[7]);
  339.     setq(VV[24],Ct);
  340.     if((symbol_value(VV[25]))==Cnil){
  341.     goto T201;}
  342.     princ_str("\n     while(!endp(",VV[7]);
  343.     (void)((*(LnkLI217))((V58)));
  344.     princ_str("))",VV[7]);
  345.     princ_str("\n     {vs_push(car(",VV[7]);
  346.     (void)((*(LnkLI217))((V58)));
  347.     princ_str("));",VV[7]);
  348.     (void)((*(LnkLI217))((V58)));
  349.     princ_str("=cdr(",VV[7]);
  350.     (void)((*(LnkLI217))((V58)));
  351.     princ_str(");}",VV[7]);
  352.     goto T199;
  353. T201:;
  354.     princ_str("\n     while(",VV[7]);
  355.     (void)((*(LnkLI217))((V58)));
  356.     princ_str("!=Cnil)",VV[7]);
  357.     princ_str("\n     {vs_push((",VV[7]);
  358.     (void)((*(LnkLI217))((V58)));
  359.     princ_str(")->c.c_car);",VV[7]);
  360.     (void)((*(LnkLI217))((V58)));
  361.     princ_str("=(",VV[7]);
  362.     (void)((*(LnkLI217))((V58)));
  363.     princ_str(")->c.c_cdr;}",VV[7]);
  364. T199:;
  365.     princ_str("\n    vs_base=base+",VV[7]);
  366.     (void)((*(LnkLI217))((V57)));
  367.     princ_str(";}",VV[7]);
  368.     setq(VV[24],Ct);
  369.     bds_unwind1;}
  370.     {object V62 = (VFUN_NARGS=3,(*(LnkLI228))((V54),VV[26],(V56)));
  371.     bds_unwind1;
  372.     VMR5(V62)}}
  373. }
  374. /*    local entry for function C1APPLY-OPTIMIZE    */
  375.  
  376. static object LI6(V68,V69,V70,V71,V72)
  377.  
  378. object V68;register object V69;object V70;object V71;register object V72;
  379. {     VMB6 VMS6 VMV6
  380. TTL:;
  381.     {register object V73;
  382.     register object V74;
  383.     V73= Cnil;
  384.     V74= Cnil;
  385. T236:;
  386.     if(endp(cdr((V72)))){
  387.     goto T238;}
  388.     if(!(endp((V69)))){
  389.     goto T237;}
  390. T238:;
  391.     goto T234;
  392. T237:;
  393.     {register object V76;
  394.     V76= car((V69));
  395.     V69= cdr((V69));
  396.     V75= (V76);}
  397.     V73= make_cons(V75,(V73));
  398.     {register object V78;
  399.     V78= car((V72));
  400.     V72= cdr((V72));
  401.     V77= (V78);}
  402.     V74= make_cons(V77,(V74));
  403.     goto T236;
  404. T234:;
  405.     if((cdr((V72)))==Cnil){
  406.     goto T258;}
  407.     if(((V70))!=Cnil){
  408.     goto T260;}
  409.     (void)((VFUN_NARGS=1,(*(LnkLI229))(VV[27])));
  410. T260:;
  411.     V73= make_cons((V70),(V73));
  412.     V79= list(4,VV[4],(V68),VV[28],(V72));
  413.     V74= make_cons(/* INLINE-ARGS */V79,(V74));
  414.     V80= reverse((V73));
  415.     {object V81 = list(5,VV[29],(V68),/* INLINE-ARGS */V80,reverse((V74)),(V71));
  416.     VMR6(V81)}
  417. T258:;
  418.     if(((V69))==Cnil){
  419.     goto T268;}
  420.     {object V82;
  421.     V82= (VFUN_NARGS=4,(*(LnkLI230))(VV[30],VV[31],VV[32],Ct));
  422.     V73= make_cons((V82),(V73));
  423.     V74= make_cons(car((V72)),(V74));
  424.     V83= reverse((V73));
  425.     V84= reverse((V74));
  426.     {object V85 = list(5,VV[29],(V68),/* INLINE-ARGS */V83,/* INLINE-ARGS */V84,list(6,VV[33],cadr((V71)),(V82),(V69),(V70),(V71)));
  427.     VMR6(V85)}}
  428. T268:;
  429.     if(((V70))==Cnil){
  430.     goto T276;}
  431.     V73= make_cons((V70),(V73));
  432.     V74= make_cons(car((V72)),(V74));
  433.     V86= reverse((V73));
  434.     {object V87 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,reverse((V74)),(V71));
  435.     VMR6(V87)}
  436. T276:;
  437.     {object V88;
  438.     V88= (VFUN_NARGS=4,(*(LnkLI230))(VV[30],VV[31],VV[32],Ct));
  439.     V73= make_cons((V88),(V73));
  440.     V74= make_cons(car((V72)),(V74));
  441.     V89= reverse((V73));
  442.     V90= reverse((V74));
  443.     {object V91 = list(5,VV[29],(V68),/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,list(6,VV[33],cadr((V71)),(V88),(V69),(V70),(V71)));
  444.     VMR6(V91)}}}
  445. }
  446. /*    function definition for C2APPLY-OPTIMIZE    */
  447.  
  448. static L7()
  449. {register object *base=vs_base;
  450.     register object *sup=base+VM7; VC7
  451.     vs_reserve(VM7);
  452.     bds_check;
  453.     {object V92;
  454.     object V93;
  455.     object V94;
  456.     object V95;
  457.     check_arg(4);
  458.     V92=(base[0]);
  459.     V93=(base[1]);
  460.     V94=(base[2]);
  461.     V95=(base[3]);
  462.     vs_top=sup;
  463. TTL:;
  464.     bds_bind(VV[34],symbol_value(VV[34]));
  465.     bds_bind(VV[20],symbol_value(VV[20]));
  466.     bds_bind(VV[35],symbol_value(VV[35]));
  467.     bds_bind(VV[36],symbol_value(VV[36]));
  468.     if((symbol_value(VV[25]))!=Cnil){
  469.     goto T288;}
  470.     if((symbol_value(VV[37]))==Cnil){
  471.     goto T287;}
  472. T288:;
  473.     princ_str("\n    ",VV[7]);
  474.     if(((V94))==Cnil){
  475.     goto T297;}
  476.     V96= VV[38];
  477.     goto T295;
  478. T297:;
  479.     V96= VV[39];
  480. T295:;
  481.     (void)((*(LnkLI217))(V96));
  482.     princ_char(40,VV[7]);
  483.     V97 = make_fixnum(length((V93)));
  484.     (void)((*(LnkLI217))(V97));
  485.     princ_char(44,VV[7]);
  486.     (void)((*(LnkLI231))((V92),Cnil));
  487.     princ_str(");",VV[7]);
  488. T287:;
  489.     {object V98;
  490.     object V99;
  491.     V98= (V93);
  492.     V99= car((V98));
  493. T308:;
  494.     if(!(endp((V98)))){
  495.     goto T309;}
  496.     goto T304;
  497. T309:;
  498.     V100= (*(LnkLI227))();
  499.     (void)(structure_set((V99),VV[2],2,/* INLINE-ARGS */V100));
  500.     V98= cdr((V98));
  501.     V99= car((V98));
  502.     goto T308;}
  503. T304:;
  504.     if(((V94))==Cnil){
  505.     goto T319;}
  506.     V101= (*(LnkLI227))();
  507.     (void)(structure_set((V94),VV[2],2,/* INLINE-ARGS */V101));
  508. T319:;
  509.     {register int V102;
  510.     object V103;
  511.     V102= 0;
  512.     V103= (V93);
  513. T325:;
  514.     if(!(endp((V103)))){
  515.     goto T326;}
  516.     if(((V94))==Cnil){
  517.     goto T322;}
  518.     princ_str("\n    ",VV[7]);
  519.     V104= structure_ref((V94),VV[2],2);
  520.     (void)((*(LnkLI232))(/* INLINE-ARGS */V104));
  521.     princ_str("= ",VV[7]);
  522.     {int V105;
  523.     register int V106;
  524.     V105= V102;
  525.     V106= 0;
  526. T339:;
  527.     if(!((V106)>=(V105))){
  528.     goto T340;}
  529.     goto T335;
  530. T340:;
  531.     princ_char(40,VV[7]);
  532.     V106= (V106)+1;
  533.     goto T339;}
  534. T335:;
  535.     (void)((*(LnkLI231))((V92),Cnil));
  536.     {int V107;
  537.     register int V108;
  538.     V107= V102;
  539.     V108= 0;
  540. T354:;
  541.     if(!((V108)>=(V107))){
  542.     goto T355;}
  543.     goto T350;
  544. T355:;
  545.     princ_str("\n    )->c.c_cdr",VV[7]);
  546.     V108= (V108)+1;
  547.     goto T354;}
  548. T350:;
  549.     princ_char(59,VV[7]);
  550.     goto T322;
  551. T326:;
  552.     princ_str("\n    ",VV[7]);
  553.     V109= structure_ref(car((V103)),VV[2],2);
  554.     (void)((*(LnkLI232))(/* INLINE-ARGS */V109));
  555.     princ_str("=(",VV[7]);
  556.     {int V110;
  557.     register int V111;
  558.     V110= V102;
  559.     V111= 0;
  560. T374:;
  561.     if(!((V111)>=(V110))){
  562.     goto T375;}
  563.     goto T370;
  564. T375:;
  565.     princ_char(40,VV[7]);
  566.     V111= (V111)+1;
  567.     goto T374;}
  568. T370:;
  569.     (void)((*(LnkLI231))((V92),Cnil));
  570.     {int V112;
  571.     register int V113;
  572.     V112= V102;
  573.     V113= 0;
  574. T389:;
  575.     if(!((V113)>=(V112))){
  576.     goto T390;}
  577.     goto T385;
  578. T390:;
  579.     princ_str("\n    )->c.c_cdr",VV[7]);
  580.     V113= (V113)+1;
  581.     goto T389;}
  582. T385:;
  583.     princ_str(")->c.c_car;",VV[7]);
  584.     V102= (V102)+1;
  585.     V103= cdr((V103));
  586.     goto T325;}
  587. T322:;
  588.     {object V114;
  589.     object V115;
  590.     V114= (V93);
  591.     V115= car((V114));
  592. T409:;
  593.     if(!(endp((V114)))){
  594.     goto T410;}
  595.     goto T405;
  596. T410:;
  597.     (void)((*(LnkLI233))((V115)));
  598.     V114= cdr((V114));
  599.     V115= car((V114));
  600.     goto T409;}
  601. T405:;
  602.     if(((V94))==Cnil){
  603.     goto T420;}
  604.     (void)((*(LnkLI233))((V94)));
  605. T420:;
  606.     base[8]= (V95);
  607.     vs_top=(vs_base=base+8)+1;
  608.     (void) (*Lnk234)();
  609.     bds_unwind1;
  610.     bds_unwind1;
  611.     bds_unwind1;
  612.     bds_unwind1;
  613.     return;
  614.     }
  615. }
  616. /*    local entry for function C1FUNCALL    */
  617.  
  618. static object LI8(V117)
  619.  
  620. object V117;
  621. {     VMB8 VMS8 VMV8
  622. TTL:;
  623.     {object V118;
  624.     object V119;
  625.     V118= Cnil;
  626.     V119= (VFUN_NARGS=0,(*(LnkLI212))());
  627.     if(!(endp((V117)))){
  628.     goto T426;}
  629.     (void)((*(LnkLI213))(VV[40],small_fixnum(1),small_fixnum(0)));
  630. T426:;
  631.     V118= (*(LnkLI221))(car((V117)));
  632.     (void)((*(LnkLI235))((V119),cadr((V118))));
  633.     {object V120 = list(4,VV[40],(V119),(V118),(*(LnkLI223))(cdr((V117)),(V119)));
  634.     VMR8(V120)}}
  635. }
  636. /*    local entry for function C1RPLACA    */
  637.  
  638. static object LI9(V122)
  639.  
  640. register object V122;
  641. {     VMB9 VMS9 VMV9
  642. TTL:;
  643.     {object V123;
  644.     V123= (VFUN_NARGS=0,(*(LnkLI212))());
  645.     if(endp((V122))){
  646.     goto T434;}
  647.     if(!(endp(cdr((V122))))){
  648.     goto T433;}
  649. T434:;
  650.     V124 = make_fixnum(length((V122)));
  651.     (void)((*(LnkLI213))(VV[41],small_fixnum(2),V124));
  652. T433:;
  653.     if(endp(cddr((V122)))){
  654.     goto T438;}
  655.     V125 = make_fixnum(length((V122)));
  656.     (void)((*(LnkLI214))(VV[41],small_fixnum(2),V125));
  657. T438:;
  658.     V122= (*(LnkLI223))((V122),(V123));
  659.     {object V126 = list(3,VV[41],(V123),(V122));
  660.     VMR9(V126)}}
  661. }
  662. /*    local entry for function C2RPLACA    */
  663.  
  664. static object LI10(V128)
  665.  
  666. register object V128;
  667. {     VMB10 VMS10 VMV10
  668.     bds_check;
  669. TTL:;
  670.     bds_bind(VV[20],symbol_value(VV[20]));
  671.     bds_bind(VV[42],small_fixnum(0));
  672.     V128= (VFUN_NARGS=2,(*(LnkLI236))((V128),VV[43]));
  673.     if((symbol_value(VV[25]))==Cnil){
  674.     goto T445;}
  675.     princ_str("\n    if(type_of(",VV[7]);
  676.     (void)((*(LnkLI217))(car((V128))));
  677.     princ_str(")!=t_cons)",VV[7]);
  678.     princ_str("FEwrong_type_argument(Scons,",VV[7]);
  679.     (void)((*(LnkLI217))(car((V128))));
  680.     princ_str(");",VV[7]);
  681. T445:;
  682.     princ_str("\n    (",VV[7]);
  683.     (void)((*(LnkLI217))(car((V128))));
  684.     princ_str(")->c.c_car = ",VV[7]);
  685.     (void)((*(LnkLI217))(cadr((V128))));
  686.     princ_char(59,VV[7]);
  687.     (void)((VFUN_NARGS=1,(*(LnkLI218))(car((V128)))));
  688.     {object V129 = (*(LnkLI237))();
  689.     bds_unwind1;
  690.     bds_unwind1;
  691.     VMR10(V129)}
  692. }
  693. /*    local entry for function C1RPLACD    */
  694.  
  695. static object LI11(V131)
  696.  
  697. register object V131;
  698. {     VMB11 VMS11 VMV11
  699. TTL:;
  700.     {object V132;
  701.     V132= (VFUN_NARGS=0,(*(LnkLI212))());
  702.     if(endp((V131))){
  703.     goto T463;}
  704.     if(!(endp(cdr((V131))))){
  705.     goto T462;}
  706. T463:;
  707.     V133 = make_fixnum(length((V131)));
  708.     (void)((*(LnkLI213))(VV[44],small_fixnum(2),V133));
  709. T462:;
  710.     if(endp(cddr((V131)))){
  711.     goto T467;}
  712.     V134 = make_fixnum(length((V131)));
  713.     (void)((*(LnkLI214))(VV[44],small_fixnum(2),V134));
  714. T467:;
  715.     V131= (*(LnkLI223))((V131),(V132));
  716.     {object V135 = list(3,VV[44],(V132),(V131));
  717.     VMR11(V135)}}
  718. }
  719. /*    local entry for function C2RPLACD    */
  720.  
  721. static object LI12(V137)
  722.  
  723. register object V137;
  724. {     VMB12 VMS12 VMV12
  725.     bds_check;
  726. TTL:;
  727.     bds_bind(VV[20],symbol_value(VV[20]));
  728.     bds_bind(VV[42],small_fixnum(0));
  729.     V137= (VFUN_NARGS=2,(*(LnkLI236))((V137),VV[45]));
  730.     if((symbol_value(VV[25]))==Cnil){
  731.     goto T474;}
  732.     princ_str("\n    if(type_of(",VV[7]);
  733.     (void)((*(LnkLI217))(car((V137))));
  734.     princ_str(")!=t_cons)",VV[7]);
  735.     princ_str("FEwrong_type_argument(Scons,",VV[7]);
  736.     (void)((*(LnkLI217))(car((V137))));
  737.     princ_str(");",VV[7]);
  738. T474:;
  739.     princ_str("\n    (",VV[7]);
  740.     (void)((*(LnkLI217))(car((V137))));
  741.     princ_str(")->c.c_cdr = ",VV[7]);
  742.     (void)((*(LnkLI217))(cadr((V137))));
  743.     princ_char(59,VV[7]);
  744.     (void)((VFUN_NARGS=1,(*(LnkLI218))(car((V137)))));
  745.     {object V138 = (*(LnkLI237))();
  746.     bds_unwind1;
  747.     bds_unwind1;
  748.     VMR12(V138)}
  749. }
  750. /*    local entry for function C1MEMQ    */
  751.  
  752. static object LI13(V140)
  753.  
  754. register object V140;
  755. {     VMB13 VMS13 VMV13
  756. TTL:;
  757.     {object V141;
  758.     V141= (VFUN_NARGS=0,(*(LnkLI212))());
  759.     if(endp((V140))){
  760.     goto T492;}
  761.     if(!(endp(cdr((V140))))){
  762.     goto T491;}
  763. T492:;
  764.     V142 = make_fixnum(length((V140)));
  765.     (void)((*(LnkLI213))(VV[46],small_fixnum(2),V142));
  766. T491:;
  767.     if(endp(cddr((V140)))){
  768.     goto T496;}
  769.     V143 = make_fixnum(length((V140)));
  770.     (void)((*(LnkLI214))(VV[46],small_fixnum(2),V143));
  771. T496:;
  772.     V144= list(2,car((V140)),cadr((V140)));
  773.     {object V145 = list(4,VV[47],(V141),VV[48],(*(LnkLI223))(/* INLINE-ARGS */V144,(V141)));
  774.     VMR13(V145)}}
  775. }
  776. /*    local entry for function C1MEMBER    */
  777.  
  778. static object LI14(V147)
  779.  
  780. register object V147;
  781. {     VMB14 VMS14 VMV14
  782. TTL:;
  783.     {register object V148;
  784.     V148= (VFUN_NARGS=0,(*(LnkLI212))());
  785.     if(endp((V147))){
  786.     goto T501;}
  787.     if(!(endp(cdr((V147))))){
  788.     goto T500;}
  789. T501:;
  790.     V149 = make_fixnum(length((V147)));
  791.     (void)((*(LnkLI213))(VV[49],small_fixnum(2),V149));
  792. T500:;
  793.     if(!(endp(cddr((V147))))){
  794.     goto T506;}
  795.     {object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI223))((V147),(V148)));
  796.     VMR14(V150)}
  797. T506:;
  798.     if(!((caddr((V147)))==(VV[51]))){
  799.     goto T509;}
  800.     if(!((length((V147)))==(4))){
  801.     goto T509;}
  802.     {register object x= cadddr((V147)),V151= VV[52];
  803.     while(!endp(V151))
  804.     if(equal(x,V151->c.c_car)){
  805.     goto T514;
  806.     }else V151=V151->c.c_cdr;
  807.     goto T509;}
  808. T514:;
  809.     V152= cadr(cadddr((V147)));
  810.     V153= list(2,car((V147)),cadr((V147)));
  811.     {object V154 = list(4,VV[47],(V148),/* INLINE-ARGS */V152,(*(LnkLI223))(/* INLINE-ARGS */V153,(V148)));
  812.     VMR14(V154)}
  813. T509:;
  814.     {object V155 = list(4,VV[4],(V148),VV[49],(*(LnkLI223))((V147),(V148)));
  815.     VMR14(V155)}}
  816. }
  817. /*    local entry for function C2MEMBER!2    */
  818.  
  819. static object LI15(V158,V159)
  820.  
  821. object V158;register object V159;
  822. {     VMB15 VMS15 VMV15
  823.     bds_check;
  824. TTL:;
  825.     {register object V160;
  826.     bds_bind(VV[20],symbol_value(VV[20]));
  827.     bds_bind(VV[42],small_fixnum(0));
  828.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  829.     V160= symbol_value(VV[22]);
  830.     V159= (VFUN_NARGS=2,(*(LnkLI236))((V159),VV[53]));
  831.     princ_str("\n    {register object x= ",VV[7]);
  832.     (void)((*(LnkLI217))(car((V159))));
  833.     princ_str(",V",VV[7]);
  834.     (void)((*(LnkLI217))((V160)));
  835.     princ_str("= ",VV[7]);
  836.     (void)((*(LnkLI217))(cadr((V159))));
  837.     princ_char(59,VV[7]);
  838.     if((symbol_value(VV[25]))==Cnil){
  839.     goto T529;}
  840.     princ_str("\n    while(!endp(V",VV[7]);
  841.     (void)((*(LnkLI217))((V160)));
  842.     princ_str("))",VV[7]);
  843.     goto T527;
  844. T529:;
  845.     princ_str("\n    while(V",VV[7]);
  846.     (void)((*(LnkLI217))((V160)));
  847.     princ_str("!=Cnil)",VV[7]);
  848. T527:;
  849.     if(!(((V158))==(VV[48]))){
  850.     goto T539;}
  851.     princ_str("\n    if(x==(V",VV[7]);
  852.     (void)((*(LnkLI217))((V160)));
  853.     princ_str("->c.c_car)){",VV[7]);
  854.     goto T537;
  855. T539:;
  856.     princ_str("\n    if(",VV[7]);
  857.     base[3]= symbol_name((V158));
  858.     vs_top=(vs_base=base+3)+1;
  859.     Lstring_downcase();
  860.     vs_top=sup;
  861.     V161= vs_base[0];
  862.     (void)((*(LnkLI217))(V161));
  863.     princ_str("(x,V",VV[7]);
  864.     (void)((*(LnkLI217))((V160)));
  865.     princ_str("->c.c_car)){",VV[7]);
  866. T537:;
  867.     if(!(type_of(symbol_value(VV[5]))==t_cons)){
  868.     goto T553;}
  869.     if((car(symbol_value(VV[5])))==(VV[54])){
  870.     goto T552;}
  871.     if(!((car(symbol_value(VV[5])))==(VV[55]))){
  872.     goto T553;}
  873. T552:;
  874.     (void)((VFUN_NARGS=2,(*(LnkLI218))(Ct,VV[56])));
  875.     goto T551;
  876. T553:;
  877.     V162= list(2,VV[21],(V160));
  878.     (void)((VFUN_NARGS=2,(*(LnkLI218))(/* INLINE-ARGS */V162,VV[56])));
  879. T551:;
  880.     princ_str("\n    }else V",VV[7]);
  881.     (void)((*(LnkLI217))((V160)));
  882.     princ_str("=V",VV[7]);
  883.     (void)((*(LnkLI217))((V160)));
  884.     princ_str("->c.c_cdr;",VV[7]);
  885.     (void)((VFUN_NARGS=1,(*(LnkLI218))(Cnil)));
  886.     princ_char(125,VV[7]);
  887.     {object V163 = (*(LnkLI237))();
  888.     bds_unwind1;
  889.     bds_unwind1;
  890.     VMR15(V163)}}
  891. }
  892. /*    local entry for function C1ASSOC    */
  893.  
  894. static object LI16(V165)
  895.  
  896. register object V165;
  897. {     VMB16 VMS16 VMV16
  898. TTL:;
  899.     {register object V166;
  900.     V166= (VFUN_NARGS=0,(*(LnkLI212))());
  901.     if(endp((V165))){
  902.     goto T570;}
  903.     if(!(endp(cdr((V165))))){
  904.     goto T569;}
  905. T570:;
  906.     V167 = make_fixnum(length((V165)));
  907.     (void)((*(LnkLI213))(VV[57],small_fixnum(2),V167));
  908. T569:;
  909.     if(!(endp(cddr((V165))))){
  910.     goto T575;}
  911.     {object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI223))((V165),(V166)));
  912.     VMR16(V168)}
  913. T575:;
  914.     if(!((caddr((V165)))==(VV[51]))){
  915.     goto T578;}
  916.     if(!((length((V165)))==(4))){
  917.     goto T578;}
  918.     {register object x= cadddr((V165)),V169= VV[59];
  919.     while(!endp(V169))
  920.     if(equal(x,V169->c.c_car)){
  921.     goto T583;
  922.     }else V169=V169->c.c_cdr;
  923.     goto T578;}
  924. T583:;
  925.     V170= cadr(cadddr((V165)));
  926.     V171= list(2,car((V165)),cadr((V165)));
  927.     {object V172 = list(4,VV[58],(V166),/* INLINE-ARGS */V170,(*(LnkLI223))(/* INLINE-ARGS */V171,(V166)));
  928.     VMR16(V172)}
  929. T578:;
  930.     {object V173 = list(4,VV[4],(V166),VV[57],(*(LnkLI223))((V165),(V166)));
  931.     VMR16(V173)}}
  932. }
  933. /*    local entry for function C2ASSOC!2    */
  934.  
  935. static object LI17(V176,V177)
  936.  
  937. object V176;register object V177;
  938. {     VMB17 VMS17 VMV17
  939.     bds_check;
  940. TTL:;
  941.     {register object V178;
  942.     register object V179;
  943.     bds_bind(VV[20],symbol_value(VV[20]));
  944.     bds_bind(VV[42],small_fixnum(0));
  945.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  946.     V178= symbol_value(VV[22]);
  947.     V179= Cnil;
  948.     V177= (VFUN_NARGS=2,(*(LnkLI236))((V177),VV[60]));
  949.     V179= symbol_name((V176));
  950.     if(!(((V176))==(VV[48]))){
  951.     goto T592;}
  952.     goto T591;
  953. T592:;
  954.     base[3]= (V179);
  955.     vs_top=(vs_base=base+3)+1;
  956.     Lstring_downcase();
  957.     vs_top=sup;
  958.     V179= vs_base[0];
  959. T591:;
  960.     princ_str("\n    {register object x= ",VV[7]);
  961.     (void)((*(LnkLI217))(car((V177))));
  962.     princ_str(",V",VV[7]);
  963.     (void)((*(LnkLI217))((V178)));
  964.     princ_str("= ",VV[7]);
  965.     (void)((*(LnkLI217))(cadr((V177))));
  966.     princ_char(59,VV[7]);
  967.     if((symbol_value(VV[25]))==Cnil){
  968.     goto T606;}
  969.     princ_str("\n    while(!endp(V",VV[7]);
  970.     (void)((*(LnkLI217))((V178)));
  971.     princ_str("))",VV[7]);
  972.     princ_str("\n    if(type_of(V",VV[7]);
  973.     (void)((*(LnkLI217))((V178)));
  974.     princ_str("->c.c_car)==t_cons &&",VV[7]);
  975.     (void)((*(LnkLI217))((V179)));
  976.     princ_str("(x,V",VV[7]);
  977.     (void)((*(LnkLI217))((V178)));
  978.     princ_str("->c.c_car->c.c_car)){",VV[7]);
  979.     goto T604;
  980. T606:;
  981.     princ_str("\n    while(V",VV[7]);
  982.     (void)((*(LnkLI217))((V178)));
  983.     princ_str("!=Cnil)",VV[7]);
  984.     princ_str("\n    if(",VV[7]);
  985.     (void)((*(LnkLI217))((V179)));
  986.     princ_str("(x,V",VV[7]);
  987.     (void)((*(LnkLI217))((V178)));
  988.     princ_str("->c.c_car->c.c_car) &&",VV[7]);
  989.     princ_char(86,VV[7]);
  990.     (void)((*(LnkLI217))((V178)));
  991.     princ_str("->c.c_car != Cnil){",VV[7]);
  992. T604:;
  993.     if(!(type_of(symbol_value(VV[5]))==t_cons)){
  994.     goto T633;}
  995.     if((car(symbol_value(VV[5])))==(VV[54])){
  996.     goto T632;}
  997.     if(!((car(symbol_value(VV[5])))==(VV[55]))){
  998.     goto T633;}
  999. T632:;
  1000.     (void)((VFUN_NARGS=2,(*(LnkLI218))(Ct,VV[56])));
  1001.     goto T631;
  1002. T633:;
  1003.     V180= list(2,VV[61],(V178));
  1004.     (void)((VFUN_NARGS=2,(*(LnkLI218))(/* INLINE-ARGS */V180,VV[56])));
  1005. T631:;
  1006.     princ_str("\n    }else V",VV[7]);
  1007.     (void)((*(LnkLI217))((V178)));
  1008.     princ_str("=V",VV[7]);
  1009.     (void)((*(LnkLI217))((V178)));
  1010.     princ_str("->c.c_cdr;",VV[7]);
  1011.     (void)((VFUN_NARGS=1,(*(LnkLI218))(Cnil)));
  1012.     princ_char(125,VV[7]);
  1013.     {object V181 = (*(LnkLI237))();
  1014.     bds_unwind1;
  1015.     bds_unwind1;
  1016.     VMR17(V181)}}
  1017. }
  1018. /*    local entry for function C1BOOLE-CONDITION    */
  1019.  
  1020. static object LI18(V183)
  1021.  
  1022. object V183;
  1023. {     VMB18 VMS18 VMV18
  1024. TTL:;
  1025.     if(((endp(cddr((V183)))?Ct:Cnil))==Cnil){
  1026.     goto T648;}
  1027.     {object V184 = Cnil;
  1028.     VMR18(V184)}
  1029. T648:;
  1030.     if(endp(cdddr((V183)))){
  1031.     goto T650;}
  1032.     {object V185 = Cnil;
  1033.     VMR18(V185)}
  1034. T650:;
  1035.     {object V186 = (*(LnkLI238))(car((V183)));
  1036.     VMR18(V186)}
  1037. }
  1038. /*    local entry for function C1BOOLE3    */
  1039.  
  1040. static object LI19(V188)
  1041.  
  1042. object V188;
  1043. {     VMB19 VMS19 VMV19
  1044. TTL:;
  1045.     V189= make_cons(VV[62],(V188));
  1046.     {object V190 = (*(LnkLI239))(/* INLINE-ARGS */V189);
  1047.     VMR19(V190)}
  1048. }
  1049. /*    function definition for INLINE-BOOLE3    */
  1050.  
  1051. static L20()
  1052. {register object *base=vs_base;
  1053.     register object *sup=base+VM20; VC20
  1054.     vs_reserve(VM20);
  1055.     {object V191;
  1056.     vs_top[0]=Cnil;
  1057.     {object *p=vs_top;
  1058.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1059.     V191=(base[0]);
  1060.     vs_top=sup;
  1061.     {object V192;
  1062.     V192= cadr(car((V191)));
  1063.     if(!((car((V192)))==(VV[63]))){
  1064.     goto T654;}
  1065.     goto T653;
  1066. T654:;
  1067.     base[1]= VV[64];
  1068.     vs_top=(vs_base=base+1)+1;
  1069.     Lerror();
  1070.     vs_top=sup;
  1071. T653:;
  1072.     {object V193;
  1073.     V193= (*(LnkLI238))(caddr((V192)));
  1074.     if((V193)!=Cnil){
  1075.     goto T658;}
  1076.     base[1]= VV[65];
  1077.     vs_top=(vs_base=base+1)+1;
  1078.     Lerror();
  1079.     vs_top=sup;
  1080. T658:;
  1081.     base[1]= (V193);
  1082.     base[2]= cdr((V191));
  1083.     vs_top=(vs_base=base+1)+2;
  1084.     (void) (*Lnk240)();
  1085.     return;}}
  1086.     }
  1087. }
  1088. /*    local entry for function INLINE-BOOLE3-STRING    */
  1089.  
  1090. static object LI21(V195)
  1091.  
  1092. register object V195;
  1093. {     VMB21 VMS21 VMV21
  1094. TTL:;
  1095.     base[0]= (V195);
  1096.     vs_top=(vs_base=base+0)+1;
  1097.     Lconstantp();
  1098.     vs_top=sup;
  1099.     if((vs_base[0])!=Cnil){
  1100.     goto T663;}
  1101.     goto T662;
  1102. T663:;
  1103.     base[0]= (V195);
  1104.     vs_top=(vs_base=base+0)+1;
  1105.     Leval();
  1106.     vs_top=sup;
  1107.     V195= vs_base[0];
  1108. T662:;
  1109.     {object V196= (V195);
  1110.     if(!eql(V196,VV[66]))goto T668;
  1111.     {object V197 = VV[67];
  1112.     VMR21(V197)}
  1113. T668:;
  1114.     if(!eql(V196,VV[68]))goto T669;
  1115.     {object V198 = VV[69];
  1116.     VMR21(V198)}
  1117. T669:;
  1118.     if(!eql(V196,VV[70]))goto T670;
  1119.     {object V199 = VV[71];
  1120.     VMR21(V199)}
  1121. T670:;
  1122.     if(!eql(V196,VV[72]))goto T671;
  1123.     {object V200 = VV[73];
  1124.     VMR21(V200)}
  1125. T671:;
  1126.     if(!eql(V196,VV[74]))goto T672;
  1127.     {object V201 = VV[75];
  1128.     VMR21(V201)}
  1129. T672:;
  1130.     if(!eql(V196,VV[76]))goto T673;
  1131.     {object V202 = VV[77];
  1132.     VMR21(V202)}
  1133. T673:;
  1134.     if(!eql(V196,VV[78]))goto T674;
  1135.     {object V203 = VV[79];
  1136.     VMR21(V203)}
  1137. T674:;
  1138.     if(!eql(V196,VV[80]))goto T675;
  1139.     {object V204 = VV[81];
  1140.     VMR21(V204)}
  1141. T675:;
  1142.     if(!eql(V196,VV[82]))goto T676;
  1143.     {object V205 = VV[83];
  1144.     VMR21(V205)}
  1145. T676:;
  1146.     if(!eql(V196,VV[84]))goto T677;
  1147.     {object V206 = VV[85];
  1148.     VMR21(V206)}
  1149. T677:;
  1150.     {object V207 = Cnil;
  1151.     VMR21(V207)}}
  1152. }
  1153. /*    local entry for function C1ASH-CONDITION    */
  1154.  
  1155. static object LI22(V209)
  1156.  
  1157. object V209;
  1158. {     VMB22 VMS22 VMV22
  1159. TTL:;
  1160.     {register object V210;
  1161.     V210= cadr((V209));{object V211;
  1162.     {register object V212;
  1163.     V212= (V210);
  1164.     if(type_of((V212))==t_fixnum){
  1165.     goto T681;}
  1166.     V211= Cnil;
  1167.     goto T680;
  1168. T681:;
  1169.     if((fix((V212)))>=(0)){
  1170.     goto T683;}
  1171.     V211= Cnil;
  1172.     goto T680;
  1173. T683:;
  1174.     V211= ((fix((V212)))<=(31)?Ct:Cnil);}
  1175. T680:;
  1176.     if(V211==Cnil)goto T679;
  1177.     {object V213 = V211;
  1178.     VMR22(V213)}
  1179. T679:;}
  1180.     if(type_of((V210))==t_cons){
  1181.     goto T685;}
  1182.     {object V214 = Cnil;
  1183.     VMR22(V214)}
  1184. T685:;
  1185.     if((car((V210)))==(VV[86])){
  1186.     goto T687;}
  1187.     {object V215 = Cnil;
  1188.     VMR22(V215)}
  1189. T687:;
  1190.     {object V216;
  1191.     V216= cadr((V210));
  1192.     base[0]= (V216);
  1193.     base[1]= VV[87];
  1194.     vs_top=(vs_base=base+0)+2;
  1195.     (void) (*Lnk241)();
  1196.     vs_top=sup;
  1197.     {object V217 = vs_base[0];
  1198.     VMR22(V217)}}}
  1199. }
  1200. /*    local entry for function C1ASH    */
  1201.  
  1202. static object LI23(V219)
  1203.  
  1204. object V219;
  1205. {     VMB23 VMS23 VMV23
  1206. TTL:;
  1207.     {register object V220;
  1208.     register object V221;
  1209.     V220= cadr((V219));
  1210.     V221= Cnil;
  1211.     base[0]= (V220);
  1212.     vs_top=(vs_base=base+0)+1;
  1213.     Lconstantp();
  1214.     vs_top=sup;
  1215.     if((vs_base[0])==Cnil){
  1216.     goto T695;}
  1217.     base[0]= (V220);
  1218.     vs_top=(vs_base=base+0)+1;
  1219.     Leval();
  1220.     vs_top=sup;
  1221.     V220= vs_base[0];{object V222;
  1222.     base[0]= (V220);
  1223.     vs_top=(vs_base=base+0)+1;
  1224.     (void) (*Lnk242)();
  1225.     vs_top=sup;
  1226.     V222= vs_base[0];
  1227.     if(V222==Cnil)goto T702;
  1228.     goto T701;
  1229. T702:;}
  1230.     base[0]= VV[88];
  1231.     vs_top=(vs_base=base+0)+1;
  1232.     Lerror();
  1233.     vs_top=sup;
  1234. T701:;
  1235.     if(!(number_compare((V220),small_fixnum(0))<0)){
  1236.     goto T707;}
  1237.     V221= VV[89];
  1238.     goto T693;
  1239. T707:;
  1240.     if(!(number_compare((V220),small_fixnum(0))>=0)){
  1241.     goto T693;}
  1242.     V221= VV[90];
  1243.     goto T693;
  1244. T695:;
  1245.     {object V223;
  1246.     V223= cadr((V220));
  1247.     base[0]= (V223);
  1248.     base[1]= VV[91];
  1249.     vs_top=(vs_base=base+0)+2;
  1250.     (void) (*Lnk241)();
  1251.     vs_top=sup;
  1252.     if((vs_base[0])==Cnil){
  1253.     goto T715;}
  1254.     V221= VV[90];
  1255.     goto T693;
  1256. T715:;
  1257.     base[0]= (V223);
  1258.     base[1]= VV[92];
  1259.     vs_top=(vs_base=base+0)+2;
  1260.     (void) (*Lnk241)();
  1261.     vs_top=sup;
  1262.     if((vs_base[0])==Cnil){
  1263.     goto T721;}
  1264.     V221= VV[89];
  1265.     goto T693;
  1266. T721:;
  1267.     base[0]= VV[93];
  1268.     vs_top=(vs_base=base+0)+1;
  1269.     Lerror();
  1270.     vs_top=sup;}
  1271. T693:;
  1272.     V224= make_cons((V221),(V219));
  1273.     {object V225 = (*(LnkLI239))(/* INLINE-ARGS */V224);
  1274.     VMR23(V225)}}
  1275. }
  1276. /*    local entry for function SHIFT>>    */
  1277.  
  1278. static object LI24(V228,V229)
  1279.  
  1280. object V228;object V229;
  1281. {     VMB24 VMS24 VMV24
  1282. TTL:;
  1283.     base[0]= (V228);
  1284.     base[1]= (V229);
  1285.     vs_top=(vs_base=base+0)+2;
  1286.     Lash();
  1287.     vs_top=sup;
  1288.     {object V230 = vs_base[0];
  1289.     VMR24(V230)}
  1290. }
  1291. /*    local entry for function SHIFT<<    */
  1292.  
  1293. static object LI25(V233,V234)
  1294.  
  1295. object V233;object V234;
  1296. {     VMB25 VMS25 VMV25
  1297. TTL:;
  1298.     base[0]= (V233);
  1299.     base[1]= (V234);
  1300.     vs_top=(vs_base=base+0)+2;
  1301.     Lash();
  1302.     vs_top=sup;
  1303.     {object V235 = vs_base[0];
  1304.     VMR25(V235)}
  1305. }
  1306. /*    function definition for CO1LDB    */
  1307.  
  1308. static L26()
  1309. {register object *base=vs_base;
  1310.     register object *sup=base+VM26; VC26
  1311.     vs_reserve(VM26);
  1312.     {object V236;
  1313.     object V237;
  1314.     check_arg(2);
  1315.     V236=(base[0]);
  1316.     V237=(base[1]);
  1317.     vs_top=sup;
  1318. TTL:;
  1319.     {register object V238;
  1320.     object V239;
  1321.     V238= Cnil;
  1322.     base[3]= VV[94];
  1323.     vs_top=(vs_base=base+3)+1;
  1324.     Linteger_length();
  1325.     vs_top=sup;
  1326.     V239= vs_base[0];
  1327.     {register object V240;
  1328.     {object V241;
  1329.     V238= car((V237));
  1330.     if(type_of((V238))==t_cons){
  1331.     goto T737;}
  1332.     V241= Cnil;
  1333.     goto T736;
  1334. T737:;
  1335.     if((VV[95])==(car((V238)))){
  1336.     goto T740;}
  1337.     V241= Cnil;
  1338.     goto T736;
  1339. T740:;
  1340.     V241= make_cons(cadr((V238)),caddr((V238)));
  1341. T736:;
  1342.     if(((V241))==Cnil){
  1343.     goto T743;}
  1344.     V240= (V241);
  1345.     goto T735;
  1346. T743:;
  1347.     V240= Cnil;}
  1348. T735:;
  1349.     {object V242= cdr((V240));
  1350.     if(!(type_of(V242)==t_fixnum||type_of(V242)==t_bignum)){
  1351.     goto T746;}}
  1352.     {object V243= car((V240));
  1353.     if(!(type_of(V243)==t_fixnum||type_of(V243)==t_bignum)){
  1354.     goto T746;}}
  1355.     V244= number_plus(car((V240)),cdr((V240)));
  1356.     if(!(number_compare(/* INLINE-ARGS */V244,(V239))<0)){
  1357.     goto T746;}
  1358.     base[3]= (*(LnkLI243))(cadr((V237)));
  1359.     base[4]= VV[96];
  1360.     vs_top=(vs_base=base+3)+2;
  1361.     (void) (*Lnk241)();
  1362.     vs_top=sup;
  1363.     if((vs_base[0])==Cnil){
  1364.     goto T746;}
  1365.     V245= list(3,VV[86],VV[96],list(4,VV[97],car((V240)),cdr((V240)),cadr((V237))));
  1366.     base[3]= (*(LnkLI239))(/* INLINE-ARGS */V245);
  1367.     vs_top=(vs_base=base+3)+1;
  1368.     return;
  1369. T746:;
  1370.     base[3]= Cnil;
  1371.     vs_top=(vs_base=base+3)+1;
  1372.     return;}}
  1373.     }
  1374. }
  1375. /*    local entry for function C1LENGTH    */
  1376.  
  1377. static object LI27(V247)
  1378.  
  1379. register object V247;
  1380. {     VMB27 VMS27 VMV27
  1381. TTL:;
  1382.     {register object V248;
  1383.     V248= (VFUN_NARGS=0,(*(LnkLI212))());
  1384.     (void)(structure_set((V248),VV[98],2,VV[96]));
  1385.     {object V249;
  1386.     if(type_of(car((V247)))==t_cons){
  1387.     goto T759;}
  1388.     V249= Cnil;
  1389.     goto T758;
  1390. T759:;
  1391.     if((caar((V247)))==(VV[99])){
  1392.     goto T761;}
  1393.     V249= Cnil;
  1394.     goto T758;
  1395. T761:;
  1396.     {object V250;
  1397.     V250= cdr(car((V247)));
  1398.     if((V250)==Cnil){
  1399.     V249= Cnil;
  1400.     goto T758;}
  1401.     if((cddr((V250)))==Cnil){
  1402.     goto T764;}
  1403.     V249= Cnil;
  1404.     goto T758;
  1405. T764:;
  1406.     V249= list(4,VV[4],(V248),VV[100],(*(LnkLI223))((V250),(V248)));}
  1407. T758:;
  1408.     if(((V249))==Cnil){
  1409.     goto T767;}
  1410.     {object V251 = (V249);
  1411.     VMR27(V251)}
  1412. T767:;
  1413.     V247= (*(LnkLI223))((V247),(V248));
  1414.     {object V252 = list(4,VV[4],(V248),VV[101],(V247));
  1415.     VMR27(V252)}}}
  1416. }
  1417. /*    local entry for function C1GET    */
  1418.  
  1419. static object LI28(V254)
  1420.  
  1421. register object V254;
  1422. {     VMB28 VMS28 VMV28
  1423. TTL:;
  1424.     {object V255;
  1425.     V255= (VFUN_NARGS=0,(*(LnkLI212))());
  1426.     if(endp((V254))){
  1427.     goto T773;}
  1428.     if(!(endp(cdr((V254))))){
  1429.     goto T772;}
  1430. T773:;
  1431.     V256 = make_fixnum(length((V254)));
  1432.     (void)((*(LnkLI213))(VV[102],small_fixnum(2),V256));
  1433. T772:;
  1434.     if(endp(cddr((V254)))){
  1435.     goto T777;}
  1436.     if(endp(cdddr((V254)))){
  1437.     goto T777;}
  1438.     V257 = make_fixnum(length((V254)));
  1439.     (void)((*(LnkLI214))(VV[102],small_fixnum(3),V257));
  1440. T777:;
  1441.     {object V258 = list(3,VV[102],(V255),(*(LnkLI223))((V254),(V255)));
  1442.     VMR28(V258)}}
  1443. }
  1444. /*    local entry for function C2GET    */
  1445.  
  1446. static object LI29(V260)
  1447.  
  1448. register object V260;
  1449. {     VMB29 VMS29 VMV29
  1450.     bds_check;
  1451. TTL:;
  1452.     if((symbol_value(VV[25]))==Cnil){
  1453.     goto T783;}
  1454.     {object V261 = (*(LnkLI219))(VV[102],(V260),Cnil,Ct);
  1455.     VMR29(V261)}
  1456. T783:;
  1457.     {register object V262;
  1458.     base[0]= symbol_value(VV[20]);
  1459.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  1460.     V262= symbol_value(VV[22]);
  1461.     bds_bind(VV[20],base[0]);
  1462.     bds_bind(VV[42],small_fixnum(0));
  1463.     if((cddr((V260)))==Cnil){
  1464.     goto T792;}
  1465.     V263= VV[103];
  1466.     goto T790;
  1467. T792:;
  1468.     V263= VV[104];
  1469. T790:;
  1470.     V260= (VFUN_NARGS=2,(*(LnkLI236))((V260),V263));
  1471.     princ_str("\n    {object V",VV[7]);
  1472.     (void)((*(LnkLI217))((V262)));
  1473.     princ_str(" =(",VV[7]);
  1474.     (void)((*(LnkLI217))(car((V260))));
  1475.     princ_str(")->s.s_plist;",VV[7]);
  1476.     princ_str("\n     object ind= ",VV[7]);
  1477.     (void)((*(LnkLI217))(cadr((V260))));
  1478.     princ_char(59,VV[7]);
  1479.     princ_str("\n    while(V",VV[7]);
  1480.     (void)((*(LnkLI217))((V262)));
  1481.     princ_str("!=Cnil){",VV[7]);
  1482.     princ_str("\n    if(V",VV[7]);
  1483.     (void)((*(LnkLI217))((V262)));
  1484.     princ_str("->c.c_car==ind){",VV[7]);
  1485.     V264= list(2,VV[105],(V262));
  1486.     (void)((VFUN_NARGS=2,(*(LnkLI218))(/* INLINE-ARGS */V264,VV[56])));
  1487.     princ_str("\n    }else V",VV[7]);
  1488.     (void)((*(LnkLI217))((V262)));
  1489.     princ_str("=V",VV[7]);
  1490.     (void)((*(LnkLI217))((V262)));
  1491.     princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);
  1492.     if((cddr((V260)))==Cnil){
  1493.     goto T822;}
  1494.     V265= caddr((V260));
  1495.     goto T820;
  1496. T822:;
  1497.     V265= Cnil;
  1498. T820:;
  1499.     (void)((VFUN_NARGS=1,(*(LnkLI218))(V265)));
  1500.     princ_char(125,VV[7]);
  1501.     {object V266 = (*(LnkLI237))();
  1502.     bds_unwind1;
  1503.     bds_unwind1;
  1504.     VMR29(V266)}}
  1505. }
  1506. /*    local entry for function CO1EQL    */
  1507.  
  1508. static object LI30(V269,V270)
  1509.  
  1510. object V269;register object V270;
  1511. {     VMB30 VMS30 VMV30
  1512. TTL:;{object V271;
  1513.     if((cdr((V270)))!=Cnil){
  1514.     goto T830;}
  1515.     V271= Cnil;
  1516.     goto T829;
  1517. T830:;
  1518.     V271= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);
  1519. T829:;
  1520.     if(V271==Cnil)goto T828;
  1521.     goto T827;
  1522. T828:;}
  1523.     {object V272 = Cnil;
  1524.     VMR30(V272)}
  1525. T827:;
  1526.     if(((*(LnkLI244))((V270)))==Cnil){
  1527.     goto T833;}
  1528.     if(!(type_of(cadr((V270)))==t_character)){
  1529.     goto T835;}
  1530.     V270= reverse((V270));
  1531. T835:;
  1532.     if(!(type_of(car((V270)))==t_character)){
  1533.     goto T840;}
  1534.     {register object V273;
  1535.     vs_base=vs_top;
  1536.     Lgensym();
  1537.     vs_top=sup;
  1538.     V273= vs_base[0];
  1539.     V274= list(2,(V273),cadr((V270)));
  1540.     V275= make_cons(/* INLINE-ARGS */V274,Cnil);
  1541.     V276= (*(LnkLI243))(cadr((V270)));
  1542.     V277= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V276,(V273)));
  1543.     V278= list(3,VV[109],(V273),VV[110]);
  1544.     V279= list(2,VV[112],car((V270)));
  1545.     V280= list(4,VV[29],/* INLINE-ARGS */V275,/* INLINE-ARGS */V277,list(3,VV[108],/* INLINE-ARGS */V278,list(3,VV[111],/* INLINE-ARGS */V279,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V273)))))));
  1546.     {object V281 = (*(LnkLI239))(/* INLINE-ARGS */V280);
  1547.     VMR30(V281)}}
  1548. T840:;
  1549.     {object V282 = Cnil;
  1550.     VMR30(V282)}
  1551. T833:;
  1552.     {object V283 = Cnil;
  1553.     VMR30(V283)}
  1554. }
  1555. /*    local entry for function RESULT-TYPE    */
  1556.  
  1557. static object LI31(V285)
  1558.  
  1559. register object V285;
  1560. {     VMB31 VMS31 VMV31
  1561. TTL:;
  1562.     if(!(type_of((V285))==t_symbol)){
  1563.     goto T844;}
  1564.     {object V286;
  1565.     V286= (*(LnkLI239))((V285));
  1566.     {object V287 = structure_ref(cadr((V286)),VV[98],2);
  1567.     VMR31(V287)}}
  1568. T844:;
  1569.     base[0]= (V285);
  1570.     vs_top=(vs_base=base+0)+1;
  1571.     Lconstantp();
  1572.     vs_top=sup;
  1573.     if((vs_base[0])==Cnil){
  1574.     goto T848;}
  1575.     base[0]= (V285);
  1576.     vs_top=(vs_base=base+0)+1;
  1577.     Ltype_of();
  1578.     vs_top=sup;
  1579.     V288= vs_base[0];
  1580.     {object V289 = (*(LnkLI245))(V288);
  1581.     VMR31(V289)}
  1582. T848:;
  1583.     if(!(type_of((V285))==t_cons)){
  1584.     goto T854;}
  1585.     if(!((car((V285)))==(VV[86]))){
  1586.     goto T854;}
  1587.     {object V290 = (*(LnkLI245))(cadr((V285)));
  1588.     VMR31(V290)}
  1589. T854:;
  1590.     {object V291 = Ct;
  1591.     VMR31(V291)}
  1592. }
  1593. /*    local entry for function CO1TYPEP    */
  1594.  
  1595. static object LI32(V294,V295)
  1596.  
  1597. object V294;register object V295;
  1598. {     VMB32 VMS32 VMV32
  1599. TTL:;
  1600.     {register object V296;
  1601.     V296= Cnil;
  1602.     {register object V297;
  1603.     register object V298;
  1604.     register object V299;
  1605.     V297= car((V295));
  1606.     V298= Cnil;
  1607.     if(type_of(cadr((V295)))==t_cons){
  1608.     goto T863;}
  1609.     V299= Cnil;
  1610.     goto T862;
  1611. T863:;
  1612.     if((car(cadr((V295))))==(VV[113])){
  1613.     goto T865;}
  1614.     V299= Cnil;
  1615.     goto T862;
  1616. T865:;
  1617.     V299= cadr(cadr((V295)));
  1618. T862:;
  1619.     base[2]= (*(LnkLI243))(car((V295)));
  1620.     base[3]= (V299);
  1621.     vs_top=(vs_base=base+2)+2;
  1622.     (void) (*Lnk241)();
  1623.     vs_top=sup;
  1624.     if((vs_base[0])==Cnil){
  1625.     goto T867;}
  1626.     V298= Ct;
  1627.     {object V300 = (*(LnkLI239))((V298));
  1628.     VMR32(V300)}
  1629. T867:;
  1630.     if(((V299))!=Cnil){
  1631.     goto T877;}
  1632.     V298= Cnil;
  1633.     goto T875;
  1634. T877:;
  1635.     {register object x= (V299),V301= symbol_value(VV[114]);
  1636.     while(!endp(V301))
  1637.     if(type_of(V301->c.c_car)==t_cons &&equal(x,V301->c.c_car->c.c_car)){
  1638.     V294= (V301->c.c_car);
  1639.     goto T882;
  1640.     }else V301=V301->c.c_cdr;
  1641.     V294= Cnil;}
  1642. T882:;
  1643.     if(((V294))==Cnil){
  1644.     goto T880;}
  1645.     V298= list(2,cdr((V294)),(V297));
  1646.     goto T875;
  1647. T880:;
  1648.     if(!(type_of((V299))==t_cons)){
  1649.     goto T884;}
  1650.     if(!((car((V299)))==(VV[115]))){
  1651.     goto T887;}
  1652.     if((cddr((V299)))==Cnil){
  1653.     goto T883;}
  1654. T887:;
  1655.     {register object x= car((V299)),V302= VV[116];
  1656.     while(!endp(V302))
  1657.     if(eql(x,V302->c.c_car)){
  1658.     goto T892;
  1659.     }else V302=V302->c.c_cdr;
  1660.     goto T884;}
  1661. T892:;
  1662.     if(!(equal(caddr((V299)),VV[117]))){
  1663.     goto T884;}
  1664. T883:;
  1665.     V296= (*(LnkLI246))(cadr((V299)));
  1666.     if(!(((V296))==(VV[118]))){
  1667.     goto T897;}
  1668.     V298= list(2,VV[119],(V297));
  1669.     goto T875;
  1670. T897:;
  1671.     if(!(((V296))==(VV[120]))){
  1672.     goto T900;}
  1673.     V298= list(2,VV[121],(V297));
  1674.     goto T875;
  1675. T900:;
  1676.     V296= (VFUN_NARGS=2,(*(LnkLI247))((V296),symbol_value(VV[122])));
  1677.     if(((V296))==Cnil){
  1678.     goto T903;}
  1679.     V298= list(3,VV[86],VV[123],list(3,VV[124],(V297),(V296)));
  1680.     goto T875;
  1681. T903:;
  1682.     V298= Cnil;
  1683.     goto T875;
  1684. T884:;
  1685.     {object V303;
  1686.     if(type_of((V299))==t_cons){
  1687.     goto T907;}
  1688.     V303= Cnil;
  1689.     goto T906;
  1690. T907:;
  1691.     if((car((V299)))==(VV[125])){
  1692.     goto T909;}
  1693.     V303= Cnil;
  1694.     goto T906;
  1695. T909:;
  1696.     if(type_of(cdr((V299)))==t_cons){
  1697.     goto T911;}
  1698.     V303= Cnil;
  1699.     goto T906;
  1700. T911:;
  1701.     if((cadr((V299)))!=Cnil){
  1702.     goto T913;}
  1703.     V303= Cnil;
  1704.     goto T906;
  1705. T913:;
  1706.     if(type_of(cadr((V299)))==t_symbol){
  1707.     goto T915;}
  1708.     V303= Cnil;
  1709.     goto T906;
  1710. T915:;
  1711.     base[2]= cadr((V299));
  1712.     vs_top=(vs_base=base+2)+1;
  1713.     Lsymbol_package();
  1714.     vs_top=sup;
  1715.     if((vs_base[0])!=Cnil){
  1716.     goto T917;}
  1717.     V303= Cnil;
  1718.     goto T906;
  1719. T917:;
  1720.     if((cddr((V299)))==Cnil){
  1721.     goto T920;}
  1722.     V303= Cnil;
  1723.     goto T906;
  1724. T920:;
  1725.     V303= list(2,cadr((V299)),(V297));
  1726. T906:;
  1727.     if(((V303))==Cnil){
  1728.     goto T923;}
  1729.     V298= (V303);
  1730.     goto T875;
  1731. T923:;
  1732.     base[2]= (V299);
  1733.     base[3]= VV[96];
  1734.     vs_top=(vs_base=base+2)+2;
  1735.     (void) (*Lnk241)();
  1736.     vs_top=sup;
  1737.     if((vs_base[0])==Cnil){
  1738.     goto T926;}
  1739.     V296= (*(LnkLI248))((V299));
  1740.     if(type_of((V296))==t_cons){
  1741.     goto T932;}
  1742.     V298= Cnil;
  1743.     goto T875;
  1744. T932:;
  1745.     base[2]= cadr((V296));
  1746.     vs_top=(vs_base=base+2)+1;
  1747.     (void) (*Lnk242)();
  1748.     vs_top=sup;
  1749.     if((vs_base[0])!=Cnil){
  1750.     goto T934;}
  1751.     V298= Cnil;
  1752.     goto T875;
  1753. T934:;
  1754.     base[2]= caddr((V296));
  1755.     vs_top=(vs_base=base+2)+1;
  1756.     (void) (*Lnk242)();
  1757.     vs_top=sup;
  1758.     if((vs_base[0])!=Cnil){
  1759.     goto T937;}
  1760.     V298= Cnil;
  1761.     goto T875;
  1762. T937:;
  1763.     V304= list(2,VV[126],(V297));
  1764.     V305= make_cons(/* INLINE-ARGS */V304,Cnil);
  1765.     V306= (*(LnkLI243))((V297));
  1766.     V307= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V306,VV[126]));
  1767.     V308= list(3,VV[128],VV[129],cadr((V296)));
  1768.     V298= list(4,VV[29],/* INLINE-ARGS */V305,/* INLINE-ARGS */V307,list(4,VV[108],VV[127],/* INLINE-ARGS */V308,list(3,VV[130],VV[131],caddr((V296)))));
  1769.     goto T875;
  1770. T926:;
  1771.     if(!(type_of((V299))==t_symbol)){
  1772.     goto T941;}
  1773.     V296= get((V299),VV[132],Cnil);
  1774.     if(((V296))==Cnil){
  1775.     goto T941;}
  1776.     if((structure_ref((V296),VV[132],11))!=Cnil){
  1777.     goto T946;}
  1778.     if((symbol_value(VV[133]))==Cnil){
  1779.     goto T947;}
  1780. T946:;
  1781.     V298= (*(LnkLI249))((V297),(V296));
  1782.     goto T875;
  1783. T947:;
  1784.     V298= list(3,VV[134],(V297),list(2,VV[113],(V299)));
  1785.     goto T875;
  1786. T941:;
  1787.     V298= Cnil;}
  1788. T875:;
  1789.     if((V298)==Cnil){
  1790.     {object V309 = Cnil;
  1791.     VMR32(V309)}}
  1792.     V310= list(3,VV[86],VV[123],(V298));
  1793.     {object V311 = (*(LnkLI239))(/* INLINE-ARGS */V310);
  1794.     VMR32(V311)}}}
  1795. }
  1796. /*    local entry for function STRUCT-TYPE-OPT    */
  1797.  
  1798. static object LI33(V314,V315)
  1799.  
  1800. object V314;object V315;
  1801. {     VMB33 VMS33 VMV33
  1802. TTL:;
  1803.     {register object V316;
  1804.     object V317;
  1805.     vs_base=vs_top;
  1806.     Lgensym();
  1807.     vs_top=sup;
  1808.     V316= vs_base[0];
  1809.     V318= structure_ref((V315),VV[132],0);
  1810.     V317= (*(LnkLI250))(/* INLINE-ARGS */V318);
  1811.     V319= list(2,(V316),(V314));
  1812.     V320= make_cons(/* INLINE-ARGS */V319,Cnil);
  1813.     V321= list(2,VV[135],(V316));
  1814.     if(!((length((V317)))<(3))){
  1815.     goto T955;}
  1816.     {object V324;
  1817.     object V325= (V317);
  1818.     if(endp(V325)){
  1819.     V323= Cnil;
  1820.     goto T957;}
  1821.     base[0]=V324=MMcons(Cnil,Cnil);
  1822. T958:;
  1823.     V327= list(2,VV[137],(V316));
  1824.     (V324->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V327,(*(LnkLI251))((V325->c.c_car)));
  1825.     if(endp(V325=MMcdr(V325))){
  1826.     V323= base[0];
  1827.     goto T957;}
  1828.     V324=MMcdr(V324)=MMcons(Cnil,Cnil);
  1829.     goto T958;}
  1830. T957:;
  1831.     V322= make_cons(VV[136],V323);
  1832.     goto T953;
  1833. T955:;
  1834.     V328= structure_ref((V315),VV[132],0);
  1835.     V322= list(3,VV[134],(V316),(*(LnkLI251))(/* INLINE-ARGS */V328));
  1836. T953:;
  1837.     {object V329 = list(3,VV[29],/* INLINE-ARGS */V320,list(3,VV[108],/* INLINE-ARGS */V321,V322));
  1838.     VMR33(V329)}}
  1839. }
  1840. /*    local entry for function GET-INCLUDED    */
  1841.  
  1842. static object LI34(V331)
  1843.  
  1844. object V331;
  1845. {     VMB34 VMS34 VMV34
  1846. TTL:;
  1847.     {object V332;
  1848.     V332= get((V331),VV[132],Cnil);
  1849.     V333= structure_ref((V332),VV[132],0);
  1850.     V337= structure_ref((V332),VV[132],3);
  1851.     {object V335;
  1852.     object V336= /* INLINE-ARGS */V337;
  1853.     if(endp(V336)){
  1854.     V334= Cnil;
  1855.     goto T961;}
  1856.     base[0]=V335=MMcons(Cnil,Cnil);
  1857. T962:;
  1858.     (V335->c.c_cdr)= (*(LnkLI250))((V336->c.c_car));
  1859.     while(!endp(MMcdr(V335)))V335=MMcdr(V335);
  1860.     if(endp(V336=MMcdr(V336))){
  1861.     base[0]=base[0]->c.c_cdr;
  1862.     V334= base[0];
  1863.     goto T961;}
  1864.     goto T962;}
  1865. T961:;
  1866.     {object V338 = make_cons(/* INLINE-ARGS */V333,V334);
  1867.     VMR34(V338)}}
  1868. }
  1869. /*    local entry for function CO1SCHAR    */
  1870.  
  1871. static object LI35(V341,V342)
  1872.  
  1873. object V341;register object V342;
  1874. {     VMB35 VMS35 VMV35
  1875. TTL:;
  1876.     {object V343= car((V342));
  1877.     if(type_of(V343)==t_cons||(V343)==Cnil){
  1878.     goto T965;}}
  1879.     {object V344 = Cnil;
  1880.     VMR35(V344)}
  1881. T965:;
  1882.     if((symbol_value(VV[25]))==Cnil){
  1883.     goto T967;}
  1884.     {object V345 = Cnil;
  1885.     VMR35(V345)}
  1886. T967:;
  1887.     if((cdr((V342)))!=Cnil){
  1888.     goto T969;}
  1889.     {object V346 = Cnil;
  1890.     VMR35(V346)}
  1891. T969:;
  1892.     if((caar((V342)))==(VV[99])){
  1893.     goto T971;}
  1894.     {object V347 = Cnil;
  1895.     VMR35(V347)}
  1896. T971:;
  1897.     V348= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V342)))),cadr((V342)));
  1898.     {object V349 = (*(LnkLI239))(/* INLINE-ARGS */V348);
  1899.     VMR35(V349)}
  1900. }
  1901. /*    local entry for function CONS-TO-LISTA    */
  1902.  
  1903. static object LI36(V351)
  1904.  
  1905. object V351;
  1906. {     VMB36 VMS36 VMV36
  1907. TTL:;
  1908.     {register object V352;
  1909.     base[0]= (V351);
  1910.     vs_top=(vs_base=base+0)+1;
  1911.     Llast();
  1912.     vs_top=sup;
  1913.     V352= vs_base[0];
  1914.     {object V353;
  1915.     if(type_of((V352))==t_cons){
  1916.     goto T976;}
  1917.     V353= Cnil;
  1918.     goto T975;
  1919. T976:;
  1920.     if(type_of(car((V352)))==t_cons){
  1921.     goto T978;}
  1922.     V353= Cnil;
  1923.     goto T975;
  1924. T978:;
  1925.     if((caar((V352)))==(VV[139])){
  1926.     goto T980;}
  1927.     V353= Cnil;
  1928.     goto T975;
  1929. T980:;
  1930.     if((length(cdar((V352))))==(2)){
  1931.     goto T982;}
  1932.     V353= Cnil;
  1933.     goto T975;
  1934. T982:;
  1935.     base[0]= (V351);
  1936.     vs_top=(vs_base=base+0)+1;
  1937.     Lbutlast();
  1938.     vs_top=sup;
  1939.     V354= vs_base[0];
  1940.     V355= append(V354,cdar((V352)));
  1941.     V353= (*(LnkLI252))(/* INLINE-ARGS */V355);
  1942. T975:;
  1943.     if(((V353))==Cnil){
  1944.     goto T987;}
  1945.     {object V356 = (V353);
  1946.     VMR36(V356)}
  1947. T987:;
  1948.     {object V357 = (V351);
  1949.     VMR36(V357)}}}
  1950. }
  1951. /*    local entry for function CO1CONS    */
  1952.  
  1953. static object LI37(V360,V361)
  1954.  
  1955. object V360;object V361;
  1956. {     VMB37 VMS37 VMV37
  1957. TTL:;
  1958.     {register object V362;
  1959.     if((length((V361)))==(2)){
  1960.     goto T991;}
  1961.     V362= Cnil;
  1962.     goto T990;
  1963. T991:;
  1964.     V362= (*(LnkLI252))((V361));
  1965. T990:;
  1966.     if(((((V362))==((V361))?Ct:Cnil))==Cnil){
  1967.     goto T993;}
  1968.     {object V363 = Cnil;
  1969.     VMR37(V363)}
  1970. T993:;
  1971.     base[0]= (V362);
  1972.     vs_top=(vs_base=base+0)+1;
  1973.     Llast();
  1974.     vs_top=sup;
  1975.     V365= vs_base[0];
  1976.     if(!(equal(VV[140],V365))){
  1977.     goto T997;}
  1978.     base[0]= (V362);
  1979.     vs_top=(vs_base=base+0)+1;
  1980.     Lbutlast();
  1981.     vs_top=sup;
  1982.     V366= vs_base[0];
  1983.     V364= make_cons(VV[141],V366);
  1984.     goto T995;
  1985. T997:;
  1986.     V364= make_cons(VV[28],(V362));
  1987. T995:;
  1988.     {object V367 = (*(LnkLI239))(V364);
  1989.     VMR37(V367)}}
  1990. }
  1991. /*    local entry for function C1NTH-CONDITION    */
  1992.  
  1993. static object LI38(V369)
  1994.  
  1995. register object V369;
  1996. {     VMB38 VMS38 VMV38
  1997. TTL:;
  1998.     if(((endp((V369))?Ct:Cnil))==Cnil){
  1999.     goto T1003;}
  2000.     {object V370 = Cnil;
  2001.     VMR38(V370)}
  2002. T1003:;
  2003.     if(((endp(cdr((V369)))?Ct:Cnil))==Cnil){
  2004.     goto T1005;}
  2005.     {object V371 = Cnil;
  2006.     VMR38(V371)}
  2007. T1005:;
  2008.     if(endp(cddr((V369)))){
  2009.     goto T1007;}
  2010.     {object V372 = Cnil;
  2011.     VMR38(V372)}
  2012. T1007:;
  2013.     {object V373= car((V369));
  2014.     if(type_of(V373)==t_fixnum||
  2015. type_of(V373)==t_bignum||
  2016. type_of(V373)==t_ratio||
  2017. type_of(V373)==t_shortfloat||
  2018. type_of(V373)==t_longfloat||
  2019. type_of(V373)==t_complex){
  2020.     goto T1009;}}
  2021.     {object V374 = Cnil;
  2022.     VMR38(V374)}
  2023. T1009:;
  2024.     base[0]= small_fixnum(0);
  2025.     base[1]= car((V369));
  2026.     base[2]= small_fixnum(7);
  2027.     vs_top=(vs_base=base+0)+3;
  2028.     Lmonotonically_nondecreasing();
  2029.     vs_top=sup;
  2030.     {object V375 = vs_base[0];
  2031.     VMR38(V375)}
  2032. }
  2033. /*    local entry for function C1NTH    */
  2034.  
  2035. static object LI39(V377)
  2036.  
  2037. register object V377;
  2038. {     VMB39 VMS39 VMV39
  2039. TTL:;
  2040.     {object V379= car((V377));
  2041.     if(!eql(V379,VV[142]))goto T1015;
  2042.     V378= make_cons(VV[61],cdr((V377)));
  2043.     goto T1014;
  2044. T1015:;
  2045.     if(!eql(V379,VV[80]))goto T1016;
  2046.     V378= make_cons(VV[105],cdr((V377)));
  2047.     goto T1014;
  2048. T1016:;
  2049.     if(!eql(V379,VV[68]))goto T1017;
  2050.     V378= make_cons(VV[143],cdr((V377)));
  2051.     goto T1014;
  2052. T1017:;
  2053.     if(!eql(V379,VV[144]))goto T1018;
  2054.     V378= make_cons(VV[145],cdr((V377)));
  2055.     goto T1014;
  2056. T1018:;
  2057.     if(!eql(V379,VV[66]))goto T1019;
  2058.     V378= list(2,VV[61],make_cons(VV[146],cdr((V377))));
  2059.     goto T1014;
  2060. T1019:;
  2061.     if(!eql(V379,VV[147]))goto T1020;
  2062.     V378= list(2,VV[105],make_cons(VV[146],cdr((V377))));
  2063.     goto T1014;
  2064. T1020:;
  2065.     if(!eql(V379,VV[82]))goto T1021;
  2066.     V378= list(2,VV[143],make_cons(VV[146],cdr((V377))));
  2067.     goto T1014;
  2068. T1021:;
  2069.     if(!eql(V379,VV[84]))goto T1022;
  2070.     V378= list(2,VV[145],make_cons(VV[146],cdr((V377))));
  2071.     goto T1014;
  2072. T1022:;
  2073.     V378= Cnil;}
  2074. T1014:;
  2075.     {object V380 = (*(LnkLI239))(V378);
  2076.     VMR39(V380)}
  2077. }
  2078. /*    local entry for function C1NTHCDR-CONDITION    */
  2079.  
  2080. static object LI40(V382)
  2081.  
  2082. register object V382;
  2083. {     VMB40 VMS40 VMV40
  2084. TTL:;
  2085.     if(((endp((V382))?Ct:Cnil))==Cnil){
  2086.     goto T1023;}
  2087.     {object V383 = Cnil;
  2088.     VMR40(V383)}
  2089. T1023:;
  2090.     if(((endp(cdr((V382)))?Ct:Cnil))==Cnil){
  2091.     goto T1025;}
  2092.     {object V384 = Cnil;
  2093.     VMR40(V384)}
  2094. T1025:;
  2095.     if(endp(cddr((V382)))){
  2096.     goto T1027;}
  2097.     {object V385 = Cnil;
  2098.     VMR40(V385)}
  2099. T1027:;
  2100.     {object V386= car((V382));
  2101.     if(type_of(V386)==t_fixnum||
  2102. type_of(V386)==t_bignum||
  2103. type_of(V386)==t_ratio||
  2104. type_of(V386)==t_shortfloat||
  2105. type_of(V386)==t_longfloat||
  2106. type_of(V386)==t_complex){
  2107.     goto T1029;}}
  2108.     {object V387 = Cnil;
  2109.     VMR40(V387)}
  2110. T1029:;
  2111.     base[0]= small_fixnum(0);
  2112.     base[1]= car((V382));
  2113.     base[2]= small_fixnum(7);
  2114.     vs_top=(vs_base=base+0)+3;
  2115.     Lmonotonically_nondecreasing();
  2116.     vs_top=sup;
  2117.     {object V388 = vs_base[0];
  2118.     VMR40(V388)}
  2119. }
  2120. /*    local entry for function C1NTHCDR    */
  2121.  
  2122. static object LI41(V390)
  2123.  
  2124. register object V390;
  2125. {     VMB41 VMS41 VMV41
  2126. TTL:;
  2127.     {object V392= car((V390));
  2128.     if(!eql(V392,VV[142]))goto T1035;
  2129.     V391= cadr((V390));
  2130.     goto T1034;
  2131. T1035:;
  2132.     if(!eql(V392,VV[80]))goto T1036;
  2133.     V391= make_cons(VV[148],cdr((V390)));
  2134.     goto T1034;
  2135. T1036:;
  2136.     if(!eql(V392,VV[68]))goto T1037;
  2137.     V391= make_cons(VV[149],cdr((V390)));
  2138.     goto T1034;
  2139. T1037:;
  2140.     if(!eql(V392,VV[144]))goto T1038;
  2141.     V391= make_cons(VV[150],cdr((V390)));
  2142.     goto T1034;
  2143. T1038:;
  2144.     if(!eql(V392,VV[66]))goto T1039;
  2145.     V391= make_cons(VV[146],cdr((V390)));
  2146.     goto T1034;
  2147. T1039:;
  2148.     if(!eql(V392,VV[147]))goto T1040;
  2149.     V391= list(2,VV[148],make_cons(VV[146],cdr((V390))));
  2150.     goto T1034;
  2151. T1040:;
  2152.     if(!eql(V392,VV[82]))goto T1041;
  2153.     V391= list(2,VV[149],make_cons(VV[146],cdr((V390))));
  2154.     goto T1034;
  2155. T1041:;
  2156.     if(!eql(V392,VV[84]))goto T1042;
  2157.     V391= list(2,VV[150],make_cons(VV[146],cdr((V390))));
  2158.     goto T1034;
  2159. T1042:;
  2160.     V391= Cnil;}
  2161. T1034:;
  2162.     {object V393 = (*(LnkLI239))(V391);
  2163.     VMR41(V393)}
  2164. }
  2165. /*    local entry for function C1RPLACA-NTHCDR    */
  2166.  
  2167. static object LI42(V395)
  2168.  
  2169. register object V395;
  2170. {     VMB42 VMS42 VMV42
  2171. TTL:;
  2172.     {object V396;
  2173.     V396= (VFUN_NARGS=0,(*(LnkLI212))());
  2174.     if(endp((V395))){
  2175.     goto T1045;}
  2176.     if(endp(cdr((V395)))){
  2177.     goto T1045;}
  2178.     if(!(endp(cddr((V395))))){
  2179.     goto T1044;}
  2180. T1045:;
  2181.     V397 = make_fixnum(length((V395)));
  2182.     (void)((*(LnkLI213))(VV[151],small_fixnum(3),V397));
  2183. T1044:;
  2184.     if(endp(cdddr((V395)))){
  2185.     goto T1051;}
  2186.     V398 = make_fixnum(length((V395)));
  2187.     (void)((*(LnkLI213))(VV[151],small_fixnum(3),V398));
  2188. T1051:;
  2189.     {object V399= cadr((V395));
  2190.     if(!(type_of(V399)==t_fixnum||
  2191. type_of(V399)==t_bignum||
  2192. type_of(V399)==t_ratio||
  2193. type_of(V399)==t_shortfloat||
  2194. type_of(V399)==t_longfloat||
  2195. type_of(V399)==t_complex)){
  2196.     goto T1055;}}
  2197.     base[1]= small_fixnum(0);
  2198.     base[2]= cadr((V395));
  2199.     base[3]= small_fixnum(10);
  2200.     vs_top=(vs_base=base+1)+3;
  2201.     Lmonotonically_nondecreasing();
  2202.     vs_top=sup;
  2203.     if((vs_base[0])==Cnil){
  2204.     goto T1055;}
  2205.     {register object V400;
  2206.     object V401;
  2207.     vs_base=vs_top;
  2208.     Lgensym();
  2209.     vs_top=sup;
  2210.     V400= vs_base[0];
  2211.     vs_base=vs_top;
  2212.     Lgensym();
  2213.     vs_top=sup;
  2214.     V401= vs_base[0];
  2215.     V402= list(2,(V400),car((V395)));
  2216.     V403= list(2,/* INLINE-ARGS */V402,list(2,(V401),caddr((V395))));
  2217.     V404= list(3,VV[152],(V400),list(3,VV[153],cadr((V395)),(V400)));
  2218.     V405= list(5,VV[29],/* INLINE-ARGS */V403,/* INLINE-ARGS */V404,list(3,VV[152],list(2,VV[61],(V400)),(V401)),(V401));
  2219.     {object V406 = (*(LnkLI239))(/* INLINE-ARGS */V405);
  2220.     VMR42(V406)}}
  2221. T1055:;
  2222.     {object V407 = list(4,VV[4],(V396),VV[151],(*(LnkLI223))((V395),(V396)));
  2223.     VMR42(V407)}}
  2224. }
  2225. /*    local entry for function FAST-READ    */
  2226.  
  2227. static object LI43(V410,V411)
  2228.  
  2229. register object V410;object V411;
  2230. {     VMB43 VMS43 VMV43
  2231. TTL:;
  2232.     if((symbol_value(VV[25]))!=Cnil){
  2233.     goto T1065;}
  2234.     if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
  2235.     goto T1065;}
  2236.     if((cadr((V410)))!=Cnil){
  2237.     goto T1065;}
  2238.     base[0]= VV[155];
  2239.     vs_top=(vs_base=base+0)+1;
  2240.     Lboundp();
  2241.     vs_top=sup;
  2242.     if((vs_base[0])==Cnil){
  2243.     goto T1065;}
  2244.     if(!(type_of(car((V410)))!=t_cons)){
  2245.     goto T1075;}{object V412;
  2246.     V412= car((V410));
  2247.     if(V412==Cnil)goto T1078;
  2248.     goto T1077;
  2249. T1078:;}
  2250.     V410= make_cons(VV[156],cdr((V410)));
  2251. T1077:;
  2252.     {object V413;
  2253.     object V414;
  2254.     V413= car((V410));
  2255.     V414= caddr((V410));
  2256.     V415= list(2,list(2,VV[157],list(2,VV[158],(V413))),VV[159]);
  2257.     V416= list(2,VV[162],list(3,(V411),(V413),(V414)));
  2258.     V417= list(3,VV[50],VV[164],small_fixnum(-1));
  2259.     V418= list(2,list(3,VV[108],/* INLINE-ARGS */V417,list(2,VV[165],list(3,VV[86],VV[96],list(2,VV[158],list(3,VV[86],VV[166],(V413)))))),(V414));
  2260.     if(!(((V411))==(VV[167]))){
  2261.     goto T1085;}
  2262.     V419= VV[168];
  2263.     goto T1083;
  2264. T1085:;
  2265.     V419= VV[164];
  2266. T1083:;
  2267.     {object V420 = list(4,VV[29],/* INLINE-ARGS */V415,VV[160],list(3,VV[161],/* INLINE-ARGS */V416,list(3,Ct,VV[163],list(3,VV[161],/* INLINE-ARGS */V418,list(2,Ct,V419)))));
  2268.     VMR43(V420)}}
  2269. T1075:;
  2270.     V421= list(2,VV[169],car((V410)));
  2271.     V422= make_cons(/* INLINE-ARGS */V421,Cnil);
  2272.     V423= (*(LnkLI243))(car((V410)));
  2273.     V424= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V423,VV[169]));
  2274.     V425= make_cons(VV[169],cdr((V410)));
  2275.     {object V426 = list(4,VV[29],/* INLINE-ARGS */V422,/* INLINE-ARGS */V424,(*(LnkLI253))(/* INLINE-ARGS */V425,(V411)));
  2276.     VMR43(V426)}
  2277. T1065:;
  2278.     {object V427 = Cnil;
  2279.     VMR43(V427)}
  2280. }
  2281. /*    local entry for function CO1READ-BYTE    */
  2282.  
  2283. static object LI44(V430,V431)
  2284.  
  2285. object V430;object V431;
  2286. {     VMB44 VMS44 VMV44
  2287.     bds_check;
  2288. TTL:;
  2289.     {object V432;
  2290.     V432= Cnil;
  2291.     V432= (*(LnkLI253))((V431),VV[170]);
  2292.     if(((V432))==Cnil){
  2293.     goto T1090;}
  2294.     bds_bind(VV[154],small_fixnum(10));
  2295.     {object V433 = (*(LnkLI239))((V432));
  2296.     bds_unwind1;
  2297.     VMR44(V433)}
  2298. T1090:;
  2299.     {object V434 = Cnil;
  2300.     VMR44(V434)}}
  2301. }
  2302. /*    local entry for function CO1READ-CHAR    */
  2303.  
  2304. static object LI45(V437,V438)
  2305.  
  2306. object V437;object V438;
  2307. {     VMB45 VMS45 VMV45
  2308.     bds_check;
  2309. TTL:;
  2310.     {object V439;
  2311.     V439= Cnil;
  2312.     V439= (*(LnkLI253))((V438),VV[167]);
  2313.     if(((V439))==Cnil){
  2314.     goto T1096;}
  2315.     bds_bind(VV[154],small_fixnum(10));
  2316.     {object V440 = (*(LnkLI239))((V439));
  2317.     bds_unwind1;
  2318.     VMR45(V440)}
  2319. T1096:;
  2320.     {object V441 = Cnil;
  2321.     VMR45(V441)}}
  2322. }
  2323. /*    local entry for function CFAST-WRITE    */
  2324.  
  2325. static object LI46(V444,V445)
  2326.  
  2327. object V444;object V445;
  2328. {     VMB46 VMS46 VMV46
  2329. TTL:;
  2330.     if((symbol_value(VV[25]))!=Cnil){
  2331.     goto T1100;}
  2332.     if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){
  2333.     goto T1100;}
  2334.     base[0]= VV[155];
  2335.     vs_top=(vs_base=base+0)+1;
  2336.     Lboundp();
  2337.     vs_top=sup;
  2338.     if((vs_base[0])==Cnil){
  2339.     goto T1100;}
  2340.     {register object V446;
  2341.     V446= cadr((V444));
  2342.     if((V446)!=Cnil){
  2343.     goto T1108;}
  2344.     V446= VV[171];
  2345. T1108:;
  2346.     if(!(type_of((V446))!=t_cons)){
  2347.     goto T1111;}
  2348.     V447= list(2,VV[157],list(2,VV[158],(V446)));
  2349.     V448= make_cons(/* INLINE-ARGS */V447,Cnil);
  2350.     {object V449 = list(4,VV[29],/* INLINE-ARGS */V448,VV[172],list(3,VV[161],list(2,VV[173],list(3,(V445),VV[174],(V446))),VV[175]));
  2351.     VMR46(V449)}
  2352. T1111:;
  2353.     V450= list(2,VV[176],(V446));
  2354.     V451= make_cons(/* INLINE-ARGS */V450,Cnil);
  2355.     V452= (*(LnkLI243))((V446));
  2356.     V453= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V452,VV[176]));
  2357.     V454= list(2,VV[174],VV[176]);
  2358.     {object V455 = list(4,VV[29],/* INLINE-ARGS */V451,/* INLINE-ARGS */V453,(*(LnkLI254))(/* INLINE-ARGS */V454,(V445)));
  2359.     VMR46(V455)}}
  2360. T1100:;
  2361.     {object V456 = Cnil;
  2362.     VMR46(V456)}
  2363. }
  2364. /*    local entry for function CO1WRITE-BYTE    */
  2365.  
  2366. static object LI47(V459,V460)
  2367.  
  2368. object V459;register object V460;
  2369. {     VMB47 VMS47 VMV47
  2370.     bds_check;
  2371. TTL:;
  2372.     {object V461;
  2373.     V461= (*(LnkLI254))((V460),VV[177]);
  2374.     if(((V461))==Cnil){
  2375.     goto T1116;}
  2376.     bds_bind(VV[154],small_fixnum(10));
  2377.     V462= list(2,VV[174],car((V460)));
  2378.     V463= make_cons(/* INLINE-ARGS */V462,Cnil);
  2379.     if(!(type_of(car((V460)))!=t_cons)){
  2380.     goto T1120;}
  2381.     V464= car((V460));
  2382.     goto T1118;
  2383. T1120:;
  2384.     V464= VV[174];
  2385. T1118:;
  2386.     V465= list(5,VV[29],/* INLINE-ARGS */V463,VV[178],(V461),V464);
  2387.     {object V466 = (*(LnkLI239))(/* INLINE-ARGS */V465);
  2388.     bds_unwind1;
  2389.     VMR47(V466)}
  2390. T1116:;
  2391.     {object V467 = Cnil;
  2392.     VMR47(V467)}}
  2393. }
  2394. /*    local entry for function CO1WRITE-CHAR    */
  2395.  
  2396. static object LI48(V470,V471)
  2397.  
  2398. object V470;register object V471;
  2399. {     VMB48 VMS48 VMV48
  2400.     bds_check;
  2401. TTL:;
  2402.     {object V472;
  2403.     V472= (*(LnkLI254))((V471),VV[179]);
  2404.     if(((V472))==Cnil){
  2405.     goto T1125;}
  2406.     bds_bind(VV[154],small_fixnum(10));
  2407.     V473= list(2,VV[174],car((V471)));
  2408.     V474= make_cons(/* INLINE-ARGS */V473,Cnil);
  2409.     if(!(type_of(car((V471)))!=t_cons)){
  2410.     goto T1129;}
  2411.     V475= car((V471));
  2412.     goto T1127;
  2413. T1129:;
  2414.     V475= VV[174];
  2415. T1127:;
  2416.     V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[180],(V472),V475);
  2417.     {object V477 = (*(LnkLI239))(/* INLINE-ARGS */V476);
  2418.     bds_unwind1;
  2419.     VMR48(V477)}
  2420. T1125:;
  2421.     {object V478 = Cnil;
  2422.     VMR48(V478)}}
  2423. }
  2424. /*    local entry for function AET-C-TYPE    */
  2425.  
  2426. static object LI49(V480)
  2427.  
  2428. object V480;
  2429. {     VMB49 VMS49 VMV49
  2430. TTL:;
  2431.     {object V481= (V480);
  2432.     if((V481!= Ct))goto T1131;
  2433.     {object V482 = VV[181];
  2434.     VMR49(V482)}
  2435. T1131:;
  2436.     if((V481!= VV[118])
  2437.     && (V481!= VV[255]))goto T1132;
  2438.     {object V483 = VV[182];
  2439.     VMR49(V483)}
  2440. T1132:;
  2441.     if((V481!= VV[96]))goto T1133;
  2442.     {object V484 = VV[183];
  2443.     VMR49(V484)}
  2444. T1133:;
  2445.     if((V481!= VV[256]))goto T1134;
  2446.     {object V485 = VV[184];
  2447.     VMR49(V485)}
  2448. T1134:;
  2449.     if((V481!= VV[257]))goto T1135;
  2450.     {object V486 = VV[185];
  2451.     VMR49(V486)}
  2452. T1135:;
  2453.     if((V481!= VV[258]))goto T1136;
  2454.     {object V487 = VV[186];
  2455.     VMR49(V487)}
  2456. T1136:;
  2457.     if((V481!= VV[257]))goto T1137;
  2458.     {object V488 = VV[187];
  2459.     VMR49(V488)}
  2460. T1137:;
  2461.     if((V481!= VV[259]))goto T1138;
  2462.     {object V489 = VV[188];
  2463.     VMR49(V489)}
  2464. T1138:;
  2465.     if((V481!= VV[260]))goto T1139;
  2466.     {object V490 = VV[189];
  2467.     VMR49(V490)}
  2468. T1139:;
  2469.     FEerror("The ECASE key value ~s is illegal.",1,V481);}
  2470. }
  2471. /*    local entry for function CO1VECTOR-PUSH    */
  2472.  
  2473. static object LI50(V493,V494)
  2474.  
  2475. object V493;register object V494;
  2476. {     VMB50 VMS50 VMV50
  2477.     bds_check;
  2478. TTL:;
  2479.     if((symbol_value(VV[25]))!=Cnil){
  2480.     goto T1142;}
  2481.     if(number_compare(symbol_value(VV[154]),small_fixnum(3))>0){
  2482.     goto T1142;}
  2483.     if((cdr((V494)))==Cnil){
  2484.     goto T1142;}
  2485.     bds_bind(VV[154],small_fixnum(10));
  2486.     V495= list(2,VV[191],car((V494)));
  2487.     V496= listA(3,/* INLINE-ARGS */V495,list(2,VV[192],cadr((V494))),VV[193]);
  2488.     V497= (*(LnkLI243))(cadr((V494)));
  2489.     V498= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V497,VV[192]));
  2490.     V499= (*(LnkLI243))(car((V494)));
  2491.     V500= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V499,VV[191]));
  2492.     if(!(((V493))==(VV[196]))){
  2493.     goto T1150;}
  2494.     V501= listA(4,VV[196],VV[191],VV[192],cddr((V494)));
  2495.     goto T1148;
  2496. T1150:;
  2497.     V501= Cnil;
  2498. T1148:;
  2499.     V502= list(6,VV[190],/* INLINE-ARGS */V496,VV[194],/* INLINE-ARGS */V498,/* INLINE-ARGS */V500,list(3,VV[161],VV[195],list(2,Ct,V501)));
  2500.     {object V503 = (*(LnkLI239))(/* INLINE-ARGS */V502);
  2501.     bds_unwind1;
  2502.     VMR50(V503)}
  2503. T1142:;
  2504.     {object V504 = Cnil;
  2505.     VMR50(V504)}
  2506. }
  2507. /*    local entry for function CONSTANT-FOLD-P    */
  2508.  
  2509. static object LI51(V506)
  2510.  
  2511. register object V506;
  2512. {     VMB51 VMS51 VMV51
  2513. TTL:;
  2514.     base[0]= (V506);
  2515.     vs_top=(vs_base=base+0)+1;
  2516.     Lconstantp();
  2517.     vs_top=sup;
  2518.     if((vs_base[0])==Cnil){
  2519.     goto T1153;}
  2520.     {object V507 = Ct;
  2521.     VMR51(V507)}
  2522. T1153:;
  2523.     if(!(type_of((V506))!=t_cons)){
  2524.     goto T1157;}
  2525.     {object V508 = Cnil;
  2526.     VMR51(V508)}
  2527. T1157:;
  2528.     if(!((car((V506)))==(VV[86]))){
  2529.     goto T1160;}
  2530.     V506= caddr((V506));
  2531.     goto TTL;
  2532. T1160:;
  2533.     if(!(type_of(car((V506)))==t_symbol)){
  2534.     goto T1165;}
  2535.     V509= get(car((V506)),VV[197],Cnil);
  2536.     if(!((V509)==(VV[198]))){
  2537.     goto T1165;}
  2538.     {register object V510;
  2539.     register object V511;
  2540.     V510= cdr((V506));
  2541.     V511= car((V510));
  2542. T1174:;
  2543.     if(!(endp((V510)))){
  2544.     goto T1175;}
  2545.     goto T1170;
  2546. T1175:;{object V512;
  2547.     V512= (*(LnkLI261))((V511));
  2548.     if(V512==Cnil)goto T1180;
  2549.     goto T1179;
  2550. T1180:;}
  2551.     {object V513 = Cnil;
  2552.     VMR51(V513)}
  2553. T1179:;
  2554.     V510= cdr((V510));
  2555.     V511= car((V510));
  2556.     goto T1174;}
  2557. T1170:;
  2558.     {object V514 = Ct;
  2559.     VMR51(V514)}
  2560. T1165:;
  2561.     {object V515 = Cnil;
  2562.     VMR51(V515)}
  2563. }
  2564. /*    local entry for function CO1CONSTANT-FOLD    */
  2565.  
  2566. static object LI52(V518,V519)
  2567.  
  2568. object V518;object V519;
  2569. {     VMB52 VMS52 VMV52
  2570. TTL:;
  2571.     base[0]= (V518);
  2572.     vs_top=(vs_base=base+0)+1;
  2573.     Lfboundp();
  2574.     vs_top=sup;
  2575.     if((vs_base[0])==Cnil){
  2576.     goto T1188;}
  2577.     {register object V520;
  2578.     register object V521;
  2579.     V520= (V519);
  2580.     V521= car((V520));
  2581. T1196:;
  2582.     if(!(endp((V520)))){
  2583.     goto T1197;}
  2584.     goto T1192;
  2585. T1197:;{object V522;
  2586.     V522= (*(LnkLI261))((V521));
  2587.     if(V522==Cnil)goto T1202;
  2588.     goto T1201;
  2589. T1202:;}
  2590.     {object V523 = Cnil;
  2591.     VMR52(V523)}
  2592. T1201:;
  2593.     V520= cdr((V520));
  2594.     V521= car((V520));
  2595.     goto T1196;}
  2596. T1192:;
  2597.     base[0]= make_cons((V518),(V519));
  2598.     vs_top=(vs_base=base+0)+1;
  2599.     (void) (*Lnk262)();
  2600.     vs_top=sup;
  2601.     V524= vs_base[0];
  2602.     {object V525 = (*(LnkLI239))(V524);
  2603.     VMR52(V525)}
  2604. T1188:;
  2605.     {object V526 = Cnil;
  2606.     VMR52(V526)}
  2607. }
  2608. /*    local entry for function CO1SPECIAL-FIX-DECL    */
  2609.  
  2610. static object LI53(V529,V530)
  2611.  
  2612. object V529;register object V530;
  2613. {     VMB53 VMS53 VMV53
  2614. TTL:;
  2615.     {object V532= (V529);
  2616.     if((V532!= VV[264])
  2617.     && (V532!= VV[265]))goto T1212;
  2618.     V533= car((V530));
  2619.     V534= cadr((V530));
  2620.     base[0]= cddr((V530));
  2621.     vs_top=(vs_base=base+0)+1;
  2622.     L54(base);
  2623.     vs_top=sup;
  2624.     V535= vs_base[0];
  2625.     V531= listA(4,(V529),/* INLINE-ARGS */V533,/* INLINE-ARGS */V534,V535);
  2626.     goto T1211;
  2627. T1212:;
  2628.     if((V532!= VV[266])
  2629.     && (V532!= VV[267]))goto T1215;
  2630.     V536= car((V530));
  2631.     base[0]= cdr((V530));
  2632.     vs_top=(vs_base=base+0)+1;
  2633.     L54(base);
  2634.     vs_top=sup;
  2635.     V537= vs_base[0];
  2636.     V531= listA(3,(V529),/* INLINE-ARGS */V536,V537);
  2637.     goto T1211;
  2638. T1215:;
  2639.     V531= Cnil;}
  2640. T1211:;
  2641.     V538= (*(LnkLI263))(V531);
  2642.     {object V539 = (*(LnkLI239))(/* INLINE-ARGS */V538);
  2643.     VMR53(V539)}
  2644. }
  2645. /*    local entry for function CO1SUBLIS    */
  2646.  
  2647. static object LI55(V542,V543)
  2648.  
  2649. object V542;register object V543;
  2650. {     VMB54 VMS54 VMV54
  2651. TTL:;
  2652.     {register object V544;
  2653.     V544= Cnil;switch(length((V543))){
  2654.     case 2:
  2655. T1223:;
  2656.     V544= VV[50];
  2657.     if((VV[50])!=Cnil){
  2658.     goto T1220;}
  2659.     goto T1221;
  2660.     case 4:
  2661. T1224:;
  2662.     if((caddr((V543)))==(VV[51])){
  2663.     goto T1227;}
  2664.     goto T1221;
  2665. T1227:;
  2666.     {register object x= cadddr((V543)),V545= VV[199];
  2667.     while(!endp(V545))
  2668.     if(eql(x,V545->c.c_car)){
  2669.     goto T1231;
  2670.     }else V545=V545->c.c_cdr;
  2671.     goto T1230;}
  2672. T1231:;
  2673.     V544= VV[200];
  2674.     if((VV[200])!=Cnil){
  2675.     goto T1220;}
  2676.     goto T1221;
  2677. T1230:;
  2678.     {register object x= cadddr((V543)),V546= VV[201];
  2679.     while(!endp(V546))
  2680.     if(eql(x,V546->c.c_car)){
  2681.     goto T1235;
  2682.     }else V546=V546->c.c_cdr;
  2683.     goto T1234;}
  2684. T1235:;
  2685.     V544= VV[50];
  2686.     if((VV[50])!=Cnil){
  2687.     goto T1220;}
  2688.     goto T1221;
  2689. T1234:;
  2690.     {register object x= cadddr((V543)),V547= VV[202];
  2691.     while(!endp(V547))
  2692.     if(eql(x,V547->c.c_car)){
  2693.     goto T1239;
  2694.     }else V547=V547->c.c_cdr;
  2695.     goto T1238;}
  2696. T1239:;
  2697.     V544= VV[48];
  2698.     if((VV[48])!=Cnil){
  2699.     goto T1220;}
  2700.     goto T1221;
  2701. T1238:;
  2702.     goto T1221;
  2703.     default:
  2704. T1225:;
  2705.     goto T1221;}
  2706. T1221:;
  2707.     {object V548 = Cnil;
  2708.     VMR54(V548)}
  2709. T1220:;
  2710.     {object V549;
  2711.     vs_base=vs_top;
  2712.     Lgensym();
  2713.     vs_top=sup;
  2714.     V549= vs_base[0];
  2715.     V550= list(2,(V549),car((V543)));
  2716.     V551= make_cons(/* INLINE-ARGS */V550,Cnil);
  2717.     V552= cadr((V543));
  2718.     V553= list(3,VV[29],/* INLINE-ARGS */V551,list(4,VV[203],(V549),/* INLINE-ARGS */V552,list(2,VV[113],(V544))));
  2719.     {object V554 = (*(LnkLI239))(/* INLINE-ARGS */V553);
  2720.     VMR54(V554)}}}
  2721. }
  2722. /*    local entry for function SUBLIS1-INLINE    */
  2723.  
  2724. static object LI56(V558,V559,V560)
  2725.  
  2726. object V558;object V559;object V560;
  2727. {     VMB55 VMS55 VMV55
  2728. TTL:;
  2729.     {object V561;
  2730.     V562= (VFUN_NARGS=4,(*(LnkLI268))(cadr((V560)),symbol_value(VV[204]),VV[205],VV[105]));
  2731.     V561= car(/* INLINE-ARGS */V562);{object V563;
  2732.     {register object x= (V561),V564= VV[206];
  2733.     while(!endp(V564))
  2734.     if(eql(x,V564->c.c_car)){
  2735.     V563= V564;
  2736.     goto T1245;
  2737.     }else V564=V564->c.c_cdr;
  2738.     V563= Cnil;}
  2739. T1245:;
  2740.     if(V563==Cnil)goto T1244;
  2741.     goto T1243;
  2742. T1244:;}
  2743.     base[0]= VV[207];
  2744.     vs_top=(vs_base=base+0)+1;
  2745.     Lerror();
  2746.     vs_top=sup;
  2747. T1243:;
  2748.     princ_str("(check_alist(",VV[7]);
  2749.     (void)((*(LnkLI217))((V558)));
  2750.     princ_str("),sublis1(",VV[7]);
  2751.     (void)((*(LnkLI217))((V558)));
  2752.     princ_char(44,VV[7]);
  2753.     (void)((*(LnkLI217))((V559)));
  2754.     princ_char(44,VV[7]);
  2755.     base[0]= Cnil;
  2756.     base[1]= VV[208];
  2757.     base[2]= (V561);
  2758.     vs_top=(vs_base=base+0)+3;
  2759.     Lformat();
  2760.     vs_top=sup;
  2761.     V565= vs_base[0];
  2762.     (void)((*(LnkLI217))(V565));
  2763.     {object V566 = Cnil;
  2764.     VMR55(V566)}}
  2765. }
  2766. /*    local entry for function C1LIST-NTH    */
  2767.  
  2768. static object LI57(V568)
  2769.  
  2770. register object V568;
  2771. {     VMB56 VMS56 VMV56
  2772. TTL:;
  2773.     {register object V569;
  2774.     V569= (VFUN_NARGS=0,(*(LnkLI212))());
  2775.     if(endp((V568))){
  2776.     goto T1261;}
  2777.     if(!(endp(cdr((V568))))){
  2778.     goto T1260;}
  2779. T1261:;
  2780.     V570 = make_fixnum(length((V568)));
  2781.     (void)((*(LnkLI213))(VV[151],small_fixnum(2),V570));
  2782. T1260:;
  2783.     if(endp(cddr((V568)))){
  2784.     goto T1265;}
  2785.     V571 = make_fixnum(length((V568)));
  2786.     (void)((*(LnkLI213))(VV[151],small_fixnum(2),V571));
  2787. T1265:;
  2788.     {object V572= car((V568));
  2789.     if(!(type_of(V572)==t_fixnum||
  2790. type_of(V572)==t_bignum||
  2791. type_of(V572)==t_ratio||
  2792. type_of(V572)==t_shortfloat||
  2793. type_of(V572)==t_longfloat||
  2794. type_of(V572)==t_complex)){
  2795.     goto T1269;}}
  2796.     base[1]= small_fixnum(0);
  2797.     base[2]= car((V568));
  2798.     base[3]= small_fixnum(10);
  2799.     vs_top=(vs_base=base+1)+3;
  2800.     Lmonotonically_nondecreasing();
  2801.     vs_top=sup;
  2802.     if((vs_base[0])==Cnil){
  2803.     goto T1269;}
  2804.     V573= car((V568));
  2805.     V574= make_cons(cadr((V568)),Cnil);
  2806.     {object V575 = list(4,VV[209],(V569),/* INLINE-ARGS */V573,(*(LnkLI223))(/* INLINE-ARGS */V574,(V569)));
  2807.     VMR56(V575)}
  2808. T1269:;
  2809.     {object V576 = list(4,VV[4],(V569),VV[210],(*(LnkLI223))((V568),(V569)));
  2810.     VMR56(V576)}}
  2811. }
  2812. /*    local entry for function C2LIST-NTH-IMMEDIATE    */
  2813.  
  2814. static object LI58(V579,V580)
  2815.  
  2816. object V579;object V580;
  2817. {     VMB57 VMS57 VMV57
  2818.     bds_check;
  2819. TTL:;
  2820.     {object V581;
  2821.     setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
  2822.     V581= symbol_value(VV[22]);
  2823.     bds_bind(VV[20],symbol_value(VV[20]));
  2824.     bds_bind(VV[42],small_fixnum(0));
  2825.     V580= (VFUN_NARGS=2,(*(LnkLI236))((V580),VV[211]));
  2826.     princ_str("\n    {object V",VV[7]);
  2827.     (void)((*(LnkLI217))((V581)));
  2828.     princ_str("= ",VV[7]);
  2829.     if((symbol_value(VV[25]))==Cnil){
  2830.     goto T1286;}
  2831.     {register int V582;
  2832.     register int V583;
  2833.     V582= fix((V579));
  2834.     V583= 0;
  2835. T1292:;
  2836.     if(!((V583)>=(V582))){
  2837.     goto T1293;}
  2838.     goto T1288;
  2839. T1293:;
  2840.     princ_str("cdr(",VV[7]);
  2841.     V583= (V583)+1;
  2842.     goto T1292;}
  2843. T1288:;
  2844.     (void)((*(LnkLI217))(car((V580))));
  2845.     {register int V584;
  2846.     register int V585;
  2847.     V584= fix((V579));
  2848.     V585= 0;
  2849. T1308:;
  2850.     if(!((V585)>=(V584))){
  2851.     goto T1309;}
  2852.     goto T1304;
  2853. T1309:;
  2854.     princ_char(41,VV[7]);
  2855.     V585= (V585)+1;
  2856.     goto T1308;}
  2857. T1304:;
  2858.     princ_char(59,VV[7]);
  2859.     princ_str("\n    if((type_of(V",VV[7]);
  2860.     (void)((*(LnkLI217))((V581)));
  2861.     princ_str(")!=t_cons) && (",VV[7]);
  2862.     (void)((*(LnkLI217))(car((V580))));
  2863.     princ_str("!= Cnil))",VV[7]);
  2864.     princ_str("\n     FEwrong_type_argument(Scons,V",VV[7]);
  2865.     (void)((*(LnkLI217))((V581)));
  2866.     princ_str(");",VV[7]);
  2867.     goto T1284;
  2868. T1286:;
  2869.     princ_str("\n    ",VV[7]);
  2870.     (void)((*(LnkLI217))(car((V580))));
  2871.     {register int V586;
  2872.     register int V587;
  2873.     V586= fix((V579));
  2874.     V587= 0;
  2875. T1336:;
  2876.     if(!((V587)>=(V586))){
  2877.     goto T1337;}
  2878.     goto T1332;
  2879. T1337:;
  2880.     princ_str("\n    ->c.c_cdr",VV[7]);
  2881.     V587= (V587)+1;
  2882.     goto T1336;}
  2883. T1332:;
  2884.     princ_char(59,VV[7]);
  2885. T1284:;
  2886.     V588= list(2,VV[61],(V581));
  2887.     (void)((VFUN_NARGS=1,(*(LnkLI218))(/* INLINE-ARGS */V588)));
  2888.     princ_char(125,VV[7]);
  2889.     {object V589 = (*(LnkLI237))();
  2890.     bds_unwind1;
  2891.     bds_unwind1;
  2892.     VMR57(V589)}}
  2893. }
  2894. /*    local function FIXUP    */
  2895.  
  2896. static L54(base0)
  2897. register object *base0;
  2898. {    register object *base=vs_base;
  2899.     register object *sup=base+VM58; VC58
  2900.     vs_reserve(VM58);
  2901.     {register object V590;
  2902.     check_arg(1);
  2903.     V590=(base[0]);
  2904.     vs_top=sup;
  2905. TTL:;
  2906.     {register object V591;
  2907.     V591= Cnil;
  2908. T1352:;
  2909.     if(!(type_of((V590))==t_cons)){
  2910.     goto T1355;}
  2911.     goto T1354;
  2912. T1355:;
  2913.     goto T1353;
  2914. T1354:;
  2915.     {register object V592;
  2916.     V592= car((V590));
  2917.     if(!(type_of((V592))==t_cons)){
  2918.     goto T1360;}
  2919.     V592= (*(LnkLI263))((V592));
  2920.     if(((V592))==Cnil){
  2921.     goto T1360;}
  2922.     if(!((car((V592)))==(VV[106]))){
  2923.     goto T1360;}
  2924.     V591= make_cons((V592),(V591));
  2925.     {register object V593;
  2926.     V593= car((V590));
  2927.     V590= cdr((V590));
  2928.     goto T1357;}
  2929. T1360:;
  2930.     goto T1353;}
  2931. T1357:;
  2932.     goto T1352;
  2933. T1353:;
  2934.     V594= nreverse((V591));
  2935.     base[1]= nconc(/* INLINE-ARGS */V594,(V590));
  2936.     vs_top=(vs_base=base+1)+1;
  2937.     return;
  2938.     base[1]= Cnil;
  2939.     vs_top=(vs_base=base+1)+1;
  2940.     return;}
  2941.     }
  2942. }
  2943. static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],&LnkLI268,ap);} /* FIND */
  2944. static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[263],&LnkLI263,1,ap);} /* CMP-MACROEXPAND */
  2945. static LnkT262(){ call_or_link(VV[262],&Lnk262);} /* CMP-EVAL */
  2946. static object  LnkTLI261(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[261],&LnkLI261,1,ap);} /* CONSTANT-FOLD-P */
  2947. static object  LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[254],&LnkLI254,2,ap);} /* CFAST-WRITE */
  2948. static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,2,ap);} /* FAST-READ */
  2949. static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* CONS-TO-LISTA */
  2950. static object  LnkTLI251(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[251],&LnkLI251,1,ap);} /* NAME-SD1 */
  2951. static object  LnkTLI250(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[250],&LnkLI250,1,ap);} /* GET-INCLUDED */
  2952. static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[249],&LnkLI249,2,ap);} /* STRUCT-TYPE-OPT */
  2953. static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[248],&LnkLI248,1,ap);} /* NORMALIZE-TYPE */
  2954. static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[247],&LnkLI247,ap);} /* POSITION */
  2955. static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
  2956. static object  LnkTLI245(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[245],&LnkLI245,1,ap);} /* TYPE-FILTER */
  2957. static object  LnkTLI244(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[244],&LnkLI244,1,ap);} /* REPLACE-CONSTANT */
  2958. static object  LnkTLI243(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[243],&LnkLI243,1,ap);} /* RESULT-TYPE */
  2959. static LnkT242(){ call_or_link(VV[242],&Lnk242);} /* FIXNUMP */
  2960. static LnkT241(){ call_or_link(VV[241],&Lnk241);} /* SUBTYPEP */
  2961. static LnkT240(){ call_or_link(VV[240],&Lnk240);} /* WT-INLINE-LOC */
  2962. static object  LnkTLI239(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[239],&LnkLI239,1,ap);} /* C1EXPR */
  2963. static object  LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,1,ap);} /* INLINE-BOOLE3-STRING */
  2964. static object  LnkTLI237(){return call_proc0(VV[237],&LnkLI237);} /* CLOSE-INLINE-BLOCKS */
  2965. static object  LnkTLI236(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[236],&LnkLI236,ap);} /* INLINE-ARGS */
  2966. static object  LnkTLI235(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[235],&LnkLI235,2,ap);} /* ADD-INFO */
  2967. static LnkT234(){ call_or_link(VV[234],&Lnk234);} /* C2EXPR */
  2968. static object  LnkTLI233(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[233],&LnkLI233,1,ap);} /* C2BIND */
  2969. static object  LnkTLI232(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[232],&LnkLI232,1,ap);} /* WT-VS */
  2970. static object  LnkTLI231(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[231],&LnkLI231,2,ap);} /* WT-VAR */
  2971. static object  LnkTLI230(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[230],&LnkLI230,ap);} /* MAKE-VAR */
  2972. static object  LnkTLI229(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[229],&LnkLI229,ap);} /* CMPERR */
  2973. static object  LnkTLI228(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[228],&LnkLI228,ap);} /* C2FUNCALL */
  2974. static object  LnkTLI227(){return call_proc0(VV[227],&LnkLI227);} /* VS-PUSH */
  2975. static object  LnkTLI226(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[226],&LnkLI226,1,ap);} /* C2EXPR* */
  2976. static object  LnkTLI225(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[225],&LnkLI225,1,ap);} /* SAVE-FUNOB */
  2977. static object  LnkTLI224(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[224],&LnkLI224,5,ap);} /* C1APPLY-OPTIMIZE */
  2978. static object  LnkTLI223(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[223],&LnkLI223,2,ap);} /* C1ARGS */
  2979. static LnkT222(){ call_or_link(VV[222],&Lnk222);} /* COPY-INFO */
  2980. static object  LnkTLI221(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[221],&LnkLI221,1,ap);} /* C1FUNOB */
  2981. static object  LnkTLI220(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[220],&LnkLI220,1,ap);} /* ADD-OBJECT */
  2982. static object  LnkTLI219(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[219],&LnkLI219,4,ap);} /* C2CALL-GLOBAL */
  2983. static object  LnkTLI218(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[218],&LnkLI218,ap);} /* UNWIND-EXIT */
  2984. static object  LnkTLI217(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[217],&LnkLI217,1,ap);} /* WT1 */
  2985. static object  LnkTLI216(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[216],&LnkLI216,2,ap);} /* C1EXPR* */
  2986. static object  LnkTLI215(){return call_proc0(VV[215],&LnkLI215);} /* C1NIL */
  2987. static object  LnkTLI214(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[214],&LnkLI214,3,ap);} /* TOO-MANY-ARGS */
  2988. static object  LnkTLI213(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[213],&LnkLI213,3,ap);} /* TOO-FEW-ARGS */
  2989. static object  LnkTLI212(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[212],&LnkLI212,ap);} /* MAKE-INFO */
  2990.